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GREETINGS' Welcome to another issue of NORTHERN BYTES. 
I hope you all had an enjoyable summer 1 

In the last issue I published a CompuServe number for The 
Alternate Source. Unfortunately) that was the starter kit number, 
and we didn't know that CIS would insist on changing it when we got 
a "real" account. So, the REAL CompuServe number is 72167,161. 
TAS also has an account on DELPHI, the user ID there is TASIO 
(The Alternate Source Information Outlet). Again, I want to 
emphasize that these accounts are checked very infrequently, so you 
should not use them to send time-critical messages. 

The high cost of long-distance telecommunicating continues to 
tumble, at least for those of you who do not live back in the 
boondocks. See the article elsewhere in this issue on GTE 
Telenet's PC Pursuit . I might also mention here that if you have 
thought about signing up for MCI Long Distance Telephone Service 
but just have never got around to doing it, I know of a way that you 
can get it with NO installation charge (and, of course, NO minimum 
monthly charge). You probably know that MCI is less expensive 
than AT&T for long distance calls within the U.S. and Canada, but 
did you know that they are a lot less expensive than AT&T on most 
international calls? You may not even have realized that you could 
dial international calls using MCI, but you can (to many overseas 
points), and you can save a lot of money by doing so. Drop me a line 
and I'll see that you get a form that entitles you to sign up with 
MCI for no service charqe. 

Turning to other things, the long-awaited Alan Johnstone 
modifications to NEWDOS/80 are finally available from The 
Alternate Source, on TAS Public Domain Library Disk #ND-1. If you 
use NEWDOS^SO, you will definitely want a copy of these! 



LETTERS DEPARTMENT 
Reminder! Persons sending letters intended for publication 
should send them on magnetic media or via MCI Mail (especially if 
longer than a couple of paragraphs). If you are NOT using Allwrite 
(or Newscript) and your word processor offers the option to save 
your file in ASCII format, please do so (especially if using 
SuperScripsit'). Your cooperation in this matter will help us to 
bring you a better newsletter 1 



Dear Jack, 

Just received Volume 6 Number 4 and glad to see you're still 
hanging in there. With the pace of things in my life I don't get a 
chance to read everything I want to or write letters to comment on 
things that I read. But I'm home sick for a couple of days now so 
I'm trying to catch up a little. 

We (your newsletter gets passed around here) hope you 
continue NORTHERN BYTES although I'm afraid we are as guilty as 
anyone about not sending you money to continue. Those of us who 
get the most out of your newsletter and opinions are also those of 
us who've been around the longest and have seen many things we've 
liked just go away no matter how much we supported it. The last 
publication I liked well enough to send in a three year renewal 
subscription for was 80-US which ceased publication just 60 days 
later, I don't want CREATIVE COMPUTING as a replacement or I 
would have subscribed to it in the first place. But I don't have time 
for writing and hassling so I just vowed I would never do such a 
thing again. 

In fact, every time I try to encourage someone to continue 
something as well as they have been doing it, my actions backfire. 
You've heard of people causing rain by washing their cars' 5 When 
you need a lot of rain that just isn't enough. In 1982 I was able to 
save southeastern Virginia from the worst drought of the century 
by tipping my paper boy for the first time in three years. 

For 36 months he delivered my paper on time, placed inside my 
screened front door and wrapped in plastic despite the lack of rain. 
In a gesture of benevolence that I had resisted since his 
predecessor thanked me for a tip with a display of contempt, I 



began including a dollar tip with each collection. Immediately, he 
interpreted this as a sign of weakness from a "fish" and must have 
decided he was somehow graduated from small time paper boy to big 
time publication distributor executive. 

Obviously, he had to respond to the stimulus. From the first 
"tip-day" on, he demonstrated his new-found status by refusing to 
wrap the paper in plastic. Apparently, the extra effort that takes 
is above that which should be expected from a distribution 
executive. Next, with the windfall profit from the tips, he hired a 
weather consultant and an old Indian rain-dance specialist. In a 
remarkable concert of coordination, he was able to tell exactly how 
late to be with my unwrapped paper so that delivery could be 
coincided with a daily downpour that eventually ended the drought. 

But it took extraordinary measures. Almost daily he 
discovered inventive and creative new ways to increase the time it 
took me to retrieve my paper. From careful placement inside the 
screened door to a casual toss into the bushes did not initially 
allow enough time for it to rain. For a real drought, you need to 
discover the roof. And he did! 

So, dear Jack, I would not want anything to happen to you and 
NORTHERN BYTES so I'm really doing you and all of us a favor by 
NOT sending you any money for future issues. What the enclosed 
•10 represents is thanks for the last five issues — NOT the next 
five. If you have to cease production, don't blame it on me. 
Remember, the money isn't TIPS (To Insure Proper Service) in the 
future! 

Now on to a different subject — Disk Operating Systems. 
Somewhere in this issue you said someone should write a book about 
the rise and fall of the TRS-80 including a chapter on NORTHERN 
BYTES, Well, I plan on doing that when I retire in about 30 years. 
And you can be sure you will be included because you and I go way 
back, You were one of the 6,000+ owners who received (and 
contributed to) our TCS newsletter which was produced on a 
cassette-based Model I computer! 

I've got some real sea stories to tell in that book! I'm still 
using that same computer (which now has 10,267 hours on it 
according to the elapsed time meter I installed as my first 
modification) to write this letter. (Seems like it should be hundreds 
of thousands of hours but meters don't exaggerate like estimates 
do.) I bought it in September of 1977 at the grand opening of Radio 
Shack's first Computer Center in the ground floor of the Tandy 
Center in my hometown of Fort Worth. I just happened to be back 
there at the time to help my parents move into a new apartment. 

And I don't just keep it around as a souvenir. As you know, in 
1962 I opened a floppy disk drive service shop and retail store 
specializing in disk-related products. Along with an Apple II, an 
Atari, three Model Ill's and another Model I, this Model I continues 
to be my workhorse for testing drives after they come off one of 
the benches. And my wife uses it with my own self-written 
relational software to do all of our bookkeeping, invoicing, 
inventory, payroll, taxes and forms-creation on a ProWriter 8510. 

That's why I wanted to mention my DOS experiences. Maybe 
it's because I write my own software and, whether you can call it 
sophisticated or not, you would at least have to call it intricated 1 
And the only DOS it works flawlessly with is NEWDOS/80 Version 
2. But coming to that conclusion was anything but simple! 

Back in the single-density days, I used TRSDOS on a friend's 
computer just long enough to decide that I would stick with 
cassettes which were more reliable. But I eventually broke down 
and bought a drive for myself when NEWDOS+ came with it. I never 
had a problem with NEWD05+ except it was only single density. 

When I bought a Percom Doubler, I discovered I had to use 
their DOUBLE DOS because there was no way to modify NEWDOS+. 
Then, when I upgraded Electric Pencil to Version II, I discovered 
that it would handle any double density DOS except DOUBLE DOS. 
DOSPLUS was becoming popular by then and I was tasked to write 
an inventory program on a system that used it 3D I took everybody's 
word that it was good. What a disaster! I'm just glad I had the 
opportunity to discover how dangerous it was before I went out and 
bought it for myself! 



With DOSPUJS (all three versions I tried), I kept losing parts 
of files, Une numbers changed and parts of BASIC programs began 
to behave as though the commands meant something completely 
different. To this day, it is the only DOS I've ever encountered 
that not only fails to backup a disk sometimes but destroys the 
original in the process!!! Calls to Micro Systems Software were 
probably interpreted as claims for the slOO reward they were 
offering at the time to anyone who could prove their system had a 
bug because all they would say is that I probably had a bad 
computer or disk drive. 

They were right about one thing — all DOSPLUS errors were 
associated with disk I/O. In fact, that's how I got into the disk 
drive service business — trying to find something wrong with my 
drives! It was a long time, however, before I could prove to myself 
that the problem really was with DOSPLUS. I eventually wound up 
with a simple benchmark program. It consisted of a single line 
BASIC program with a single command: 

1LIST 

If you would like to try it on DOSPLUS, the only thing you 
have to do is simulate the same conditions I needed for the 
inventory program I had written for the U.S. Navy. That is, you 
have to invoke AUTO in DOS so that when the reset button is 
pressed it will automatically load BASIC to use variable length 
files and reserve space for seven buffers so that as many as seven 
data files can be opened at one time. How, all you have to do is 
press the reset button and if everything is successful, the program 
will automatically load and run which does nothing more than list 
itself. 

But you will find that it doesn't always do that if you try it 
enough times. Usually it only takes about 20 tries before 
something unexpected happens. But sometimes it happens on the 
first or second try and sometimes it takes as many as 40 or 90 tries 
(or hundreds if you use fewer file buffers). But eventually it will 
not work. Sometimes it Just goes to "silent death" — everything 
hangs up and nothing happens. Sometimes the "Memory Siie?" 
question of Level II BASIC comes up. Sometimes everything seems 
to work except the benchmark program just doesn't work. When you 
LIST it the line number 1 has been changed to line number 290 or 
some other number. And sometimes the program seems to work and 
does list itself. But when you try to LIST it from the keyboard, 
there is nothing there to list. It's as though the program was 
deleted with HEW. Tet you can type RUN and it will still run and 
list itself! Try it yourself . 

If the same thing always happened consistently we might have 
been able to figure it out. But with so many different symptoms 
from a simple single-line, single command program leading us in so 
many directions, me and my friends wasted countless thousands of 
man-hours on wild goose chases. And those same symptoms 
showing up intermittently in my complex inventory data base 
program used by unexperienced operators was just too much for the 
Supply Department who had the entire computer taken out of the 
building and turned in as excess! 

I've tried the benchmark program on dozens of different TRS- 
90 computers with different board versions and all the different 
ROM versions, different brands of doublers, different kinds of disk 
drives and on different days using different diskettes with 
different versions of DOSPLUS. The only common denominator is 
TRS-80 Model I and DOSPLUS! 

The frustrating part for me is the fact that even though most 
of my friends and customers who used a Model I with DOSPLUS will 
admit my benchmark program does fail as I've described, they said 
they'd had no problems with their own programs so they would 
continue to use it. However, I suspect they were experiencing 
problems and didn't even realize it. It's easy to assume you 
probably hit the wrong key when things are happening fast and 
something strange happens once but not the second time you try it. 
I sometimes wonder how many times people attributed DOSPLUS 
errors to that, glitches on the power line, operation during a 
lightning storm or just plain coincidence. There is no way to ever 
know. 

I find it very interesting, however, that many DOSPLUS users 
brought me their disk drives to service because of "errors" they had 
been getting. But often I could find nothing wrong enough to have 
resulted in errors, I think it is significant and not coincidental 
that all the DOSPLUS errors I have encountered can be traced back 
to disk I/O. And it's also interesting to note now that most of my 
customers previously using DOSPLUS now use LDOS (because it is 
more "professional" in their opinion). And, conveniently enough. 



most of them either installed surge suppressors or went to Model 
m, 4 or 4P at the same time to account for disappearance of their 
errors rather than admit it could have been due to DOSPLUS. 

After losing about a year of fighting the DOSPLUS battle, one 
of my friends asked me to evaluate MULTIDOS by trying to 
implement my infamous inventory program on it. I did and it was 
the first DOS that I could use to prove DOSPLUS was definitely 
defective and that I wasn't necessarily losing my mind after all. 
However, MULTIDOS has one problem that prevents me from using 
it. 

Because I got double-sided drives from the very beginning, 
the only way I could use both sides was to modify the drive so that 
each side was assigned a different drive number. There was no DOS 
for the TRS-80 that would support a drive with two heads back in 
1979. I still use the concept today because my double-sided 80- 
track drive can handle up to 444 separate files on a single diskette 
(using NEWDOS/80's ability to assign six granules to each directory 
to I can get 222 files on each side). I need that capacity due to the 
structure of my customer account status programs. The deficiencies 
of conventional information accessing and manipulation techniques 
are overcome by using individual short files rather than one long 
one. 

None of the other DOS's have a problem with each side of a 
diskette having different drive number assignments. But when 
MULTIDOS opens a file on one drive and then retrieves data from 
another file on another drive to transfer into the first one, it 
assumes the head on the first drive has not moved since it did not 
command it to move. That's acceptable as long as the two drives 
are physically different. But the way I have my drives configured 
with the different drive numbers assigned to opposite heads of the 
same drive, you can imagine what happens. When the DOS commands 
the "second* drive to move to the appropriate track, the head on the 
"first" drive is dragged along for the ride because they are screwed 
together. Then when data is to be written into the open file on the 
•first* drive, MULTIDOS just starts writing over data on whatever 
track it happens to be on. Apparently, all other DOS's do some sort 
of track number checking or something before blindly charging off 
into a writing mode. 

By early 1982, 1 was beginning to sour on the prospect of 
spending hundreds of dollars for a Disk Operating System sight 
unseen because of the bad experiences I had encountered. I had not 
wasted any money on bad DOS's up to that point because TRSDOS 
came with the manual I bought, KEWDOS* came with the drive I 
bought and DOUBLED08 came with the doublir I bought. I was 
fortunate to have learned about the dangers of DOSPLUS and 
MULTIDOS for nothing by trying to write a program for someone 
else's systems using them. But I still needed a DOS for myself that 
worked! And by then it was obvious to me that piracy was the only 
means left by software developers for anyone to evaluate software 
unless they were rich enough to afford an D3M computer. 

Tes, I truly believe software piracy is almost entirely the 
fault of software developers themselves and I don't blame anyone 
for doing it! *^t is the result of all the poor and (not or) overpriced 
software which is just about the only choice the buying public has 
been offered! Ah, but that's another series of stories for another 
time... 

I was saved from having to pirate a reliable DOS by a friend 
in early 1982 who gave up computing altogether. He sold his 
computer and gave me all of his disks including the original disk of 
HEWDOS/80 Version 2 and the original manual, both of which he had 
bought legitimately and was the registered owner of. So, even 
though I didn't buy it, I didn't have to pirate a copy either. 

I have briefly tried to use LDOS at the insistence of a friend 
who believe* it is the only "real* DOS for the TRS-80, but I almost 
lost him as a friend one night over a difference of opinion about it. 
Be reflects the same "attitude" about LDOS as you describe in your 
newsletter. I found LDOS so awkward and cumbersome to use I >jst 
didn't have the time or patience to learn all the idiosyncrasies. To 
me, a computer is supposed to be easy to use. I don't particularly 
care how many unused and unneeded features something has >ist for 
the sake of having them if it's to the detriment of usability by 
simple-minded persons like myself . Enough said! 

As it turned out, HEWDOS/80 Version 2 works, is extremely 
simple and will reliably do much, much more than anything I would 
ever want a single DOS to do. In the three years I've used it I have 
had no problem whatsoever. And I don't have to carry a manual 
around with me wherever I go. 

Well, Tack, good luck to you. 111 write again the next time I 
get sick. Business is so good that'll probably be the only chance I 
get. A fellow called from Pennsylvania the other day and said he 
heard about me from you. You must be referring a lot of people to 



ma because I'm getting drives from all over the country now and I'm 
not advartiaing anywhere. 

Our rata* an atill tha aama as whan wa ttartad — *23 for 
single-head drtva cleaning, lubrication and alignment »5 mora for 
any dual head drive) and a flat «25 more if the drive la one of the 
20\ that needs troubleshooting and repair 1 in order to achieve 
proper alignment. He still include all parts except heads and 
motors and still give the option of returning it at no charge if 
that's the problem. The only thing we do different now is for 
commercial accounts who are continuous customers. Instead of a 
discount we charge them a flat s35 per drive (plus cost of heads and 
motors), single or dual headed, whether a repair is necessary or not. 

I hope NORTHERN BYTES continues and say hello to Charley 
Butler for me the next time you talk to him. 

Sincerely. 

Les Logan. 1215 Norview Avenue. Norfolk. Virginia 23913 

[Les' business telephone number is (804) 955-62063 

[As mentioned above. Les Logan was one of the founders of 

TCS. which was probably the closest thing to a national user group 
that TRS-80 users have ever had. In fact, it's worth noting that 
one of the first pieces of national advertising for The Alternate 
Source was an insert in the TCS newsletter. I know, because that's 
how I first heard about TAS! 

I've been sending Les copies of northern Bytes on a 
complimentary basis. Partly that grew out of the newsletter 
exchange we used to have with TCS - when TCS was disbanded. I 
Just kept sending the newsletters to Les. But mostly it's been sort 
of an attempt to repay Les for all the GREAT information that he 
used to put into the TCS newsletter. It's really too bad the group 
folded, because the TCS newsletter was one of the very best 
sources of information for early Model I hackers. I know I got a Iflt 
of benefit from the group, probably much more than I ever put into 
it at tha time. 

So. as far as I'm concerned. Les deserves a lifetime 
complementary subscription to NORTHERN BYTES, because if there 
had been no TCS newsletter, it would have probably taken me a 
extra year or so to learn what I now know about the TRS-80. The 
publication was that valuable to us early users! Les. I'm 
considering your generous donation as just that - a donation to keep 
NORTHERN BTTES going. I don't feel that you owe me a dime! 

Regarding DOSPLUS, I have never done any real programming 
on it. so I have never experienced the problems mentioned. Why 
don't I use DOSPLUS? Mainly because it is much too sensitive when 
formatting disks! I could format a disk using DOSPLUS 3.5 and have 
it lock out four or five tracks, then turn around and format the same 
disk using NEWDOS/80 (or any other DOS) and there would be NO 
tracks locked out (nor any other problems). I just didn't care for 
having tracks locked out on perfectly good disks! 

My gut feeling (although I have never disassembled DOSPLUS 
to prove this) is that perhaps DOSPLUS makes ONE attempt to 
format and verify a track, and if that doesn't work, it locks out the 
entire track. All other DOSes will at least make a few attempts to 
format a track before giving up. The problem is that a track may 
not format on the first attempt for any number of reasons that have 
nothing to do with the quality of the diskette, such as power line 
glitches, momentary speed variations in the drive, or other 
momentary faults that would not be present during the second 
attempt. Again. I can't prove this, but it seems as reasonable an 
explanation as any. 

I did get a patch from Micro Systems Software to make 
DOSPLUS use a less sensitive formatting pattern and that did help 
a little, though it didn't solve the problem completely. Horse yet. 
with that patch applied I found that occasionally a disk that really 
was of marginal quality would make it through the formatting 
process. 

The formatting problem alone was enough to dissuade me from 
further attempts to make any serious use of DOSPLUS. Which in a 
way is too bad. because I think that DOSPLUS 3.5 has some really 
nice features. 

However, the problem repo rted in Les ' lette r is one I've never 
heard about before. If other NORTHERN BTTES readers are having 
similar problems with DOSPLUS (or better yet. if anyone has found 
a solution to those problems), please drop us a line and let us know 
n* specifics!] 

Dear Tack. 

I am so mad I could just... That's the trouble, there doesn't 
seem to be anything TO do. I am talking about mass distribution of 
pirated software by school district officials. How bad is it? It is 
so bad that... Well, let me tell you about it. 



By day. I am a technician in a large school district media 
center. There, a high speed cassette copier is kept busy most of 
the time. Sometimes an administrator will sit at it for hours, 
running off a shopping bag full of cassettes. More often a student 
co-op is sent to do the actual copying. 

I have argued with school district administrators for years. I 
say that buying one copy of something and making hundreds of 
copies is wrong. The administrators insist that, since they don't 
sell the copies for profit, there is no law against it. Besides, there 
is nothing that the copyright holders can do about it. 

Nights and weekends. I write computer software. One 
administrator, after previewing one of my proframs. said "It's very 
good but I can't CBAVE it. When you get that fixed. I'd like to look 
at it again.* 

Sure thing mister. Would you like to borrow my check book for 
a few days too? 

The school district offers a SCRTPSIT workshop. Everyone 
who takes the workshop, naturally, gets a copy of the program. 
There must be dose to a thousand copies of 8CRIPSIT in my district 
alone. I have only seen one in the original Radio Shack binder. 

But that's not the worst of it. I just learned that there is a 
well organized, nation wide. Computer Consortium. It is huge and it 
is supported by our tax dollars. A two hundred page catalog is full 
of popular software packages, all at a single price. Fifteen dollars. 
That includes a Sentinel diskette, photo-copied documentation and a 
nice plastic binder. 

I wouldn't swear that all Consortium programs are pirated, 
but I don't see how they could be anything else. Add it up. Ten 
bucks for the binder, two for the disk and three for printing. That 
doesn't leave much for royalty payments does it? The Consortium 
does not allow previewing, so the media center orders preview 
materials from the "real" distributor. Then, if they decide to buy, 
they buy it from the Consortium. That alone seems dishonest to my 
way of thinking. 

A program that TOU wrote, might be in every classroom in the 
country right now. You should be hanging a gold plated floppy over 
the fireplace in your new mansion. But you're not because you only 
got paid for one copy. You have no way of knowing. That is how bad 
it is. 

Robert P. Noonon 

CThe above two letters offer two views of software piracy. I 
agree that the person who gets stung buying a piece of lousy, 
overpriced software is probably going to be fairly receptive to the 
next offer of a pirated copy of a program. But, folks, if you do get 
a pirated copy of something and find that you really do like like the 
program and that you actually use it more than once or twice, you 
really should buy a legitimate copy (if possible - that's another 
story. I know of one producer of TRS-80 software that sells their 
products by mail order only (that is, they do not sell through 
dealers or distributors) but refuses to ship their products to 
Australia (and probably other countries outside the U.8.A. as well). 
Naturally, that company's products are freely available there via 
the "pirate grapevine". Many of the users in Australia would prefer 
to own legitimate copies of these products but can't get them, so 
what are they supposed to do? Chalk this up as a tiny bit of 
insanity within an otherwise fine company). 

However, Mr. Noonon addresses an issue that cuts to the very 
heart of our society. I have heard it time and again in many and 
various ways, and this is but one symptom. The problem is that 
many school officials somehow consider themselves part of the 
■intellectual elite" and therefore above the law! I'm serious - I 
think that many people in the educational profession have somehow 
gotten the idea in their heads that the laws are made to be used for 
their benefit, and when a law somehow inconveniences them or 
threatens to impede their goal of "educating* our youth (which, you 
may have noticed, they've been doing a lousy job of lately), they 
think they can ignore the law with impunity. 

ttf you find this hard to believe, may I suggest one book that 
might open your eyes to what is really happening in some of our 
schools nowadays. It's called Child Abuse in the Classroom, edited 
by Phyllis Bchlafly, and published by Pore Marquette Press, Alton, 
Illinois 62002 AM by Crossway Books, Westchester, Illinois 60153. 
This book consists of "selected excerpts from tht Official 
Transcript of Proceedings before the United States Department of 
Education in the matter of the Proposed Regulations to Implement 
the Protection of Pupil Rights Amendment ... also known as the 
Hatch Amendment." In other words, transcripts of testimony by 
parents, public school teachers, and interested dtitens describing 



accounts of psychological abuse of children in the public schools. It 
has nothing to do with computers, but it sure dots reveal the 
attitudes of somt public school officials!) 

Think about this a moment - here a school is handing a student 
a bag of cassettes and a master copy of a program and saying "run 
us off a few copies." Folks, not only is the school system 
participating in a criminal act, they are getting a minor student 
(who is in their care and control) to aid and abet them in this act. 
The person w ho induces a student to do this should oo to tail, even 
if it's the Superintendent of Schools himself, and I don't mean for 
just a weekend lockup, either. 

It is a well know fact in the software industry that school 
systems are the worst offenders insofar as software piracy is 
concerned. I'm not talking about students swapping programs with 
other students (which is largely beyond the control of the school 
anyway). I'm talking about a district that buys one copy of a 
program, and suddenly every computer user in the district (be they 
administrator, teacher, or student) has a copy. And it is a difficult 
problem, because who wants to sue a school district at creates a 
bad image among the folks of the community, who by and large don't 
really understand the problem). 

What can be done? Hell, you're reading this publication, which 
implies that you know something (probably a great deal) about 
computers and about the software piracy issue. If you have school- 
age children, §ik them if they know of any illegal copying of 
programs in their schools, If you discover this sort of thing going 
on, why not go to your next school board meeting and ask why 
Federal copyright laws are being violated, and what kind of example 
do they think this sets for the students (this works particularly 
well if the press is in attendance, especially if you have taken the 
trouble to brief the press on the issues involved - this could be 
done with a one or two page handout. After all, the school officials 
probably won't listen to you alone, since you're just a lowly parent 
and therefore not one of the intelligentsia). 

But, I don't realistically expect to see this wholesale piracy 
stopped until some software manufacturer actually sues a teacher, 
principal, or some other school official for about two million clams. 
Okay, which of you Big Software Manufacturers wants to wear the 
black hat for this act? (Don't everybody jump at once, now). 

Final comment - my remarks above are by no means intended 
to apply to the many honest and decent educators in our country. 
And, I do understand that school budgets are always tight, but 
better to do without a computer altogether than to teach students 
that stealing is okay. If you are an educator that has practiced this 
form of theft in the past, please destroy your illegal copies now and 
refrain from doing this in the future. And above all, don't ask 
students to do your dirty work for you. Remember these words from 
The Living Bible (The Book)! "There will always be temptations to 
sin,' Jesus said one day to his disciples, 'but woe to the man who 
does the tempting. If he were thrown into the sea with a huge rock 
tied to his neck, he would be far better off than facing the 
punishment in store for those who harm these little children's 
souls. I am warning you!" (Luke 17S1-2) J 

Dear Jack, 

Having just obtained another copy of Northern Bytes from a 
friend, I am reminded that "The Road To Hell is Paved With Good 
Intentions"! By this I mean I have intended for some time to send 
you my Visa number to help support your efforts to keep that 
marvelous little "Rag" with its' wealth of information coming our 
way. 

With this in mind I am submitting my Visa number to cover 
future issues. Also I am including a check to cover some of the 
bootleg back issues I have in my files (some were obtained through 
The Alternate Source). While I know this is not necessary, your 
publication and efforts are really appreciated by those of us who 
enjoy tinkering (the word "hacking" has been misrepresented by the 
press). 

On another subject — it is not necessarily true that the LNW 
type doubler requires the TI flag to be set to E, as the Apparat 
instruction manual would seem to indicate. As a matter of fact, I 
find that the only result I got from that setting was that my disks 
were no longer compatible with the Fercom doubler which I also 
have. The LNW doubler works just as well with the TI nag set to C 
or CK, same as the Fercom doubler. 

Floyd C. Trimble 

COecasionally I get a letter like this, and always appreciate 
the encouragement and support of our readers, I just wish there 
were a lot more of you out there, because it would make it a lot 



easier to justify the time and effort I put into each issue of 
NORTHERN BYTES. Thanks, Floyd, your support is very much 
appreciated (and thanks also to those other readers who have also 
contributed to NORTHERN BYTES "above and beyond* what we have 
requested). 

I refuse to give up the use of the word "hacker" in its original^ 
sense. I am a hacker and proud of it, and blast it, I am not about ' 
give up the use of the term because ABC, CBS, NBC, or anyone elk. 
misuses it, If certain groups can force the media to use silly terms 
like "chairperson" or "fireperson" (presumably because they are 
supposedly somehow derogatory to women - note, however, that the 
term "woman" itself contains the "man" ending; I'm surprised they 
haven't tried to do something about that as well!), then why should 
we computer hackers allow the press to give us a bad name. TO 
CALL SOMEONE A HACKER IS A COMPLIMENT! When the press 
says that a "computer hacker" broke into a computer system to steal 
or vandalize data, what they are really saying is that an intelligent 
person who likes to find out how his computer works got carried 
away and crossed the line into an illegal activity - in other words, 
they are paying the person a compliment while reporting his crime. 
That may not be their intention, but when the term "hacker" is used 
in that type of story, that is how it comes out (at least to those of 
us who know the origin of the term). Perhaps we need a "Computer 
Hacker's Anti-Defamation League" to "educate" the news media (and 
the general public) as to the proper use of the term "hacker". 

Regarding the NEWDOS/80 TI flag, I also have found that the 
"C" specification works with an LNW doubler. I have also found 
that both "C" and "E" work with the Holmes Engineering doubler. I 
normally use the *C" specification on all my Model I format disks. 
Does anyone know of any doubler (other than the Radio Shack 
doubler) that will rjot work with the "C" specification?] 

Dear Jack, 

I have an Anadex M-8000 printer for which I need a schematic 
and pin-out. It was also listed at one time as the TRIAD Model 
3070} the main board has a number of 1700-3263-O4. I would like to 
obtain the complete manual, but that is probably too much to wish 
for. 

Andrew Johnson, P.O. Box 3689, Warner Robins, Georgia 31099 

[Readers, can anyone help with this one?] 

Dear Jack, 

... If you own a Model 4 and are using the Model HI version of 
Superscripsit, be careful. Several times I have been using 
TRSDOS 6.2 and then decided to put Superscripsit in. Instead of 
turning off the computer first, I just pushed the reset button. 
Superscripsit then has a bad habit of locking up (usually when I am 
about finished) and the only way I have been able to regain control 
and start over without the same problem is to remove the disk and 
turn the computer off and back on, thus losing whatever I was 
typing. 

A question I would like answered in Northern Bytes, because 
I'm sure I'm not the only one with it, is why does it seem as if 
almost all of the articles deal with NEWDOS/80 and there are not 
more dealing with TRSDOS or LDOS? I really liked the article about 
the TRSDOS 6.2 patches and plan to try some of them out wmry soon. 

Keep up the good work. 

Sincerely, Charles E. Tatman 

[First of all, if I were you I'd make it a priority to learn how 
to recover your text in memory before turning off the machine. 
Even though the computer "locks up", your text is still in memory 
(until you cut the power) and (in theory, anyway) you should be able 
to examine it using DEBUG and then perhaps to DUMP that segment 
of memory to a disk file. The whole recovery process would be much 
easier if you were using another word processor, for two reasons) 
First of all, Superscripsit has the screwiest format for text storage 
(on disk, anyway) that I have ever seen, and that has to complicate 
the recovery process. And second, some word processors have a 
method to automatically recover text in memory after a system 
crash. For example, with Allwrite, you simply type AL • from DOS 
READY and Allwrite will attempt to restore your text, so that you 
can save it to disk (most other non-Radio Shack word processinjr— 
programs have a similar feature). Anyway, maybe some othe 
Superscripsit user will write in with some more help for your 
specific problem. 

As for your other question, the bias toward NEWDOS/80 is 
not by design. If more authors would contribute TRSDOS 6-related 
articles, I'd run more of them d can't publish what I don't have). I 



suspect that you will see more and more coverage of TRSDOS 6 in 
future issues, as more users become comfortable with it. Also, it 
would help a whole lot if Logical Systems, Inc. would drop the price 
on their TRSDOS 6 source code listings to a more reasonable price - 
S99 per book (and there are three books') is no problem for any large 
company that might want to "rip off" parts of the code for whatever 
reason, but it's certainly prohibitive for the average hacker (and 
that includes your editor!). Granted, Apparat was never very free 
with technical information on NEWDOS/80, but then it's been around 
a lot longer than TRSDOS 6, so there is more knowledge about it in 
general circulation. 

At for LDOS, if you enjoy running LDOS on a Model I, you 
might alio enjoy flogging yourself with whips and chains. My 
attempts to use LDOS a couple of years ago were met with nothing 
short of extreme frustration. Possibly one of the worst things 
about LDOS is what I call the "sudden death" mode, where you do 
something that LDOS doesn't like and it just up and dies on you, 
necessitating a reboot (this actually appears to happen rather 
randomly). Unfortunately, this "feature" has been reported to me 
by other users of LDOS, and even occasionally by TRSDOS 6 users. 
No, I'm not saying that I won't run LDOS-related article! (and I try 
not to discriminate against them), but I don't experience feelings of 
extreme joy when I get one, either] 



Date; Tue Aug 27, 1985 2!2« pir EDT **RECEIFT 

From! Bob Seaborn / MCI ID: 2m-W 

TO: • Jack Decker / MCI ID: 102-7413 

Jack, 1 jutt received Volume 6 Number « today. Much thanks for 
getting it to me, I'm just sending this with a cpuplt of comment*. 

First, the rewrite of the NEWBQS'fO Disk lasie Ampersand 
<fc» Routine that appear* on page 22 has the same listing for both 
the "effort" and "after". They're both for the "before ", *e it might 
be an idea to get the "after" published soen. I'm sure that I'm net 
the first te notiee this, so \< I'm repeating what ethers have 
already (eld you, please aewt my aMegiet far wasting yeur time. 

Next, with regards te the ?ap for fUFERIAP/eMB provided fey 
Pay! Fransen en page 14, I have taken the liberty ef ehan§ing the 
SiH byte te O^H and the two OAH Mes te OIH, This allaw? \m use 
ef the left and right arrows to serall threugh the sectors rather 
than the up and dewn arrows, I'm too used te Iweer utility which 
gegs the yfn»dewn arrows tg change tragus and this will allow more 
compatibility, 

I'll be in touch again. 

Bob 

EAsrtuallyi Bab, yaw WERE the first te netice the bu§ in the 
Ampersand function article, Thanks far pointing it eut, and you'll 
find the eerrePted article elsewhere in this iseub,3 

Dear Jack, 

We of the Tandy Hehsrt Users' group (THUS 1 ) wish te empress 
eur sincere thanks for sending us Volume A, Number 1 "Northern 
lytes", I (m partieular) was fasanated when reading seme ©f the 
articles' As we are a small gr§yp §f %§me 2? peeple, we have ne 
newsletter ef gyr ewn, but possibly yay might find the fellewing 
useful and, if se, publish it, 

Yeur readers are undoubtedly aware of the date Sue in Radio 
flhack's mush maligned 5JVM 1.9*. There are actually twe date 
bwfSi The first is responsible for adding ens day ent§ the date 
entered after beeting the disk m pswer^yp, This was the sufejeet of 
in e*gellent artide by Charles. Alexander in *m Mips" tetetsber 
19S4, pp< 114=119), The setend bug is (mere 1 ** serieus as Seteber 1 
beeemes January Hi ©gteber 2, January lt t and se en. After 
dissevering this the hard way, I wrgte te Mr. Alexander, The 
segend problem arises because the PI pregrammer used the A 
register in whieh t§ aggumuUte the t§t#l, H§wever, as this is a P* 
byte register, there are insufficient bytes te held the 36§ days of 
the year, On a separate sheet J have included the patches Mr, 
Alexander sent me te gerregt these faults. They work! 

Yeurs singerely, Herbert imith 
8, P< 8, Be* 1271 N, Hebart, Tasmania 7001, Australia 

'Thanks, Herbert! Here are the patfhes that Herb sentll 

8I©8 PATCH TQ CQRPJeT A88m@N Qf MSNTHI 

HOTEI In beth versions, yeu must first de the fellewingl 



Put your working version of DOS in drive B: 
Drive A! should contain SID and SET 
Tour default drive should be A! 



SET B:CPM3.SYS<RW> 
SID BJCPM3.SYS 

PANKED VER5ION 

S0553 

16 

00 

DD 

21 

00 

00 

3E 

DD 

19 

OD 

23 

C2 

D9 

FO 

2A 

87 

Fl 

CD 

66 

Fl 

2A 

F4 

D2 

DD 

E5 

01 

19 

04 

00 

09 

WHiePM3,iVS,100,SCFF 



TOBANKED VERSION 

S04C4 

16 

00 

DD 

21 

00 

00 

5E 

DD 

19 

OD 

23 

C2 

4A 

E7 

2A 

F8 

E7 

CD 

D9 

E7 

2A 

F4 

CA 

DD 

E? 

Dl 

19 

06 

00 

09 

WB!CPM3.5Y8,100,3FFF 



Date! Thu Jull 1 , 1«W 12!S4 am EDT 

From! Clifford Riehard* / MCI ID! 266-3283 

TO! ♦ Jack Decker / MCI ID! 102-7413 

Subject! Sup Fi» 

Exterminator - fix for the "TO" lug on ND/eo. Have renamed Tony 
Pemiaan, He is now known as 'FIT!' <*P> Domigan, 



This eempletely eliminates this bug. Take Care! 



Cliff Richards 



I You knew, if I'd sat and thought about it for a thousand 
years, I dsn't think that solution would ever have occurred to me, 
yet it's se ebvieus, "Maybe I need a little of that Australian 
sunshine te help stimulate my. brain cells, so I can come up with 
■ueh original solutions to my problems!! 




ESBfTOP'H HOTS! Does this article look familiar? If it does, 
it's beeause we firet publistwd it in NORTHSRN 1TOS Volume 6, 
Number *-• Trouble is, I must have been half aeltep when I 
formatted this one for publication, because somehow w othw I 
managed to us* WW Mm* lifting for both the "before" and "after" 
cade, The listing X printed <twice» was th» "bffort" vtrtion, so I'm 
reprinting tn» entire artide here, with the correct "after" code in 
place tHit time, lob leaborn wins the "eagle tye • award for 
•pottingitrtit errors 

I never think in octal. It's hard enough to work in binary, hex, 
and todmal. It always seemed to me that the default for the <fi' 
function should be he*, out octal, I finally dug out the source cede 
(from Apparat's Disk 1A9IC1 which I found in SY820/8TB. My 
rewrite fits within the required extra space. Although a quantity of 



bytes are changed, this is became the axle is "re-arranged" more 
than became it i» "re-written". 

Fir»t, here i» the Disk BASIC <&) routine found in Apparat's 
NEWDOS/80 version 2.0 - specifically STS20/SYS, addresses 
54C3H-5503H. If you are using SUPERZAP, address 54C5H is found 
at FRS 2, byte D1H and address 5503H is at FRS 3, byte 13H. Note 
that the four bytes at FRS 3, bytes 06H-09H (which are Ot 00 FA 54) 
are loader codes and must NOT be changed. 



54C5 




00100 




ORG 


34C5H 


34C3 


D7 


00110 




RST 


10H 


54C6 


4F 


00120 




LD 


C,A 


54C7 


110000 


00130 




LD 


DE.0000H 


54CA 


79 


00140 


Q54CAH 


LD 


A,C 


34CB 


FE48 


00150 




CP 


48H 


54CD 


202Z 


00160 




JR 


NZ,Q54F1H 


54CF 


D7 


00170 




RST 


10H 


54D0 


EB 


00180 




EX 


DE.HL 


54D1 


D630 


00190 




SUB 


30H 


54D3 


FEOA 


00200 




CP 


0AH 


54D5 


3808 


00210 




JR 


CGJ54DFH 


34D7 


D611 


00220 




SUB 


11H 


54D9 


FE06 


00230 




CP 


06H 


54DB 


3022 


00240 




JR 


NC.Q54FFH 


54DD 


C60A 


00250 




ADD 


A,0AH 


54DF 


2? 


00260 


054DFH 


ADD 


HL,HL 


54E0 


3807 


00270 




JR 


CQ54E9H 


54E2 


29 


00280 


Q54E2H 


ADD 


HL,HL 


54E3 


3804 


00290 




JR 


CQ54E9H 


54E5 


29 


00300 




ADD 


HL,HL 


54E6 


3801 


00310 




JR 


C054E9H 


54EB 


29 


00320 




ADD 


HL,HL 


54E9 


DAB207 


00330 


Q54E9H 


JP 


C07BZH 


54EC 


85 


00340 




ADD 


A,L 


54ED 


6F 


00350 




LD 


L,A 


54EE 


EE 


00360 




EX 


DE,HL 


54EF 


18D9 


00370 




JR 


Q54CAH 


34F1 


0E4F 


00380 


G54F1H 


LD 


C.4FH 


34F3 


B9 


00390 




CP 


C 


54F4 


2801 


00400 




JR 


Z f Q54F7H 


54F6 


2B 


00410 




DEC 


HL 


34F7 


07 


00420 


Q54F7H 


RST 


10H 


54FB 


EB 


00430 




EX 


DE,HL 


54F9 


D630 


00440 




SUB 


30H 


54FB 


FE08 


00450 




CP 


08H 


54FD 


38E3 


00460 




JR 


CQ54E2H 


54FF 


CD9A0A 


00470 


054FFH 


CALL 


0A9AH 


5502 


EB 


00480 




EX 


DE,HL 


3503 


C9 


00490 




RET 




This is the rewrite of the Disk BASIC ampersand <&> rout: 



Now the octal argument must be specified by '£0'. Hex argument 
max D * specified by 'fcH'. No suffix (i*. '&') now defaults to hex 
rather than octal. 



34C5 




00100 




ORG 


54C5H 


54C5 


D7 


00110 




RST 


10H 


54C6 


4F 


00120 




LD 


C,A 


54C7 


110000 


00130 




LD 


DE.00OOH 


54CA 


79 


00140 


054CAH 


LD 


A,C 


54CB 


FE4F 


00150 




CP 


4FH 


54CD 


2828 


00160 




JR 


Z,G)54F7H 


54CF 


0E48 


00170 




LD 


C,48H 


54D1 


B9 


00180 




CP 


C 


54D2 


2801 


00190 




JR 


Z,Q54D5H 


34D4 


2B 


00200 




DEC 


HL 


54D5 


D7 


00210 


Q54D5H 


RST 


10H 


54D6 


EB 


00220 




EX 


DE.HL 


34D7 


D630 


00230 




SUB 


30H 


54D9 


FE0A 


00240 




CP 


0AH 


54DB 


3808 


00250 




JR 


C054E5H 


54DD 


D611 


00260 




SUB 


11H 


54DF 


FE06 


00270 




CP 


06H 


34E1 


301C 


00280 




JR 


NCGI54FFH 


54E3 


C60A 


00290 




ADD 


A,0AH 


54E5 


29 


00300 


Q54E5H 


ADD 


HL,HL 


54E6 


3807 


00310 




JR 


C054EFH 


54EB 


29 


00320 


Q54EBH 


ADD 


HL.HL 


54E9 


3804 


00330 




JR 


CQ54EFH 


54EB 


29 


00340 




ADD 


HL,HL 


54EC 


3801 


00350 




JR 


C054EFH 



54EE 29 


00360 




ADD 


HL,HL 


S4EF DABZ07 


00370 


Q54EFH 


JP 


C07B2H 


54F2 85 


00380 




ADD 


A,L 


34F3 6F 


00390 




LD 


L,A 


34F4 EB 


00400 




EX 


DE,HL 


54FS 18D3 


00410 




JR 


Q34CAH 


54F7 07 


00420 


Q54F7H 


RST 


10H 


34FB EB 


00430 




EX 


DE.HL 


54F9 D630 


00440 




SUB 


30H 


54FB FE08 


00450 




CP 


08H 


34FD 38E9 


00460 




JR 


CQ34E8I 


54FF CD9A0A 


00470 


Q54FFH 


CALL 


0A9AH 


5502 EB 


00480 




EX 


DE#HL 


5303 C9 


00490 




RET 












by Brendan Thompson 





[This article is a merger of two articles which originally 
appeared in Christchurch-80, the official magazine of the 
Christchurch 80 Users Group, P.O. Box 4118, Cbristchurch, New 
Zealand!] 

Running an 80-track disk drive double-tided and in double 
density has some advantages (399 grans free) and some 
disadvantages. One of the big disadvantages is that the Electric 
Pencil will not display the directory. To see what's on the disk you 
have to get into Mini-DOS and look from there. An unnecessary 
complication in a carefully uncomplicated word-processor. 

The reason for this problem is that in NENDOS/80, PENCIL 
normally expects the directory to be starting on track 17, sector 
(disk sector 170), The directory on an 80 track double-sided double 
density disk does not start on sector 170, and cannot be persuaded 
or bullied into living there without unusual and inhumane treatment, 
so PENCIL won't read it. The problem to date has been insoluble. 

Nell fear not. Salvation is at hand. Here is a zap which will 
persuade PENCIL to read your directory wherever it has gone to. It 
is a long one, but well worth it. 



Chmge 



to 



PBCD.il/SYS, I9,X 

2744FE82200332 40 6E18 0A 
28 03 «1 14 II ED 43 4A 6E ED 43 

Zft30 522243oEftF32466E32 
28 14FE2ft20 033ZX6£FE34 
EC E4 13 32 46 6£ 21 

I 

3D (£ AF 77 F4 30 32 FF M 13 1A 
20 0177FE303BF2FE3430FE 
6A 11 3E 52 CD 1C 44 2A 30 52 II 
C2 01623AU5291320E6B18 
S3 39 S3 3A 30 03 21 



C? 01 AC 00 3ft 

3A 03 52FE 31 

35 6E CD 93 64 

3D 6E 13 1A B7 

30 FO FE 30 38 

C? CD 93 44 21 
B7 28 10 FE 2A 
32 FF Aft 21 F7 
02 00 CD 24 44 
Oft 44 49S2 2F 



P9CIL01/SYS,OV,8C chmge 11404ECDtoll3E3ZCD 
PBCIL01/SYS,09,W chmge 11406ECDtoll3E52CD 

REMEMBER to perform this zap on a backup, and verify it is 
performing properly before you copy it to your working disk. The 
zap can be done with a utility such as SVPERZAP, or from BASIC 
with Alan Johnstone's ZAPPER program. 

Here is a patch supplied by IJG, the distributors of Electric 
Pencil, which some of you may not have seen. It is described as a 
mandatory zap to prevent the occasional dropping of characters in 
text entry mode at the end of a line or the end of a screen. 

While it does not prevent this problem completely, this zap 
certainly cuts down the number of characters lost. 

PDCILAJf),l7,C2 
Qungt 00 FA D7 55 1A 
to 00 C3 86 40 1ft 

POCIUX»,14,70 

Chmge 00 00 00 00 00 00 00 00 00 00 00 

to 00 F2 3F 5ft CD 73 50 C3 07 55 01 

NOTE! Depending on what you have done with your 
PENCIL/CMD file before this, the relevant coding may have been 
shifted round in the file. In mine, the first was found at sector 7, 
byte 6B, and the second at 13, byte FD. Locate the code to change 
rather than zapping "blind", and try it on a backup first. 



(How to 



MODEL 4 5TSTEM STATUS FLAGS 

tht Model 4/4P system status flags using BASIC) 

b> Rowan Evans (phone 011-61-2-419-3164) 



CThis article is excerpted from the Mr. Evans' column, "THE 
PROPHET AND ORACLE SPEAK", which appears in the SYDTRUG 
NEWS, P.O. Box 297, Padstow, New South Wales 2211, AUSTRALIA.] 

Note that the information presented here is for the Model 4 
TRSDOS/LDOS 6.x ONLY! I strongly suggest that anyone 
contemplating using this information follow the machine code 
subroutine access method if portability is desired. I also cannot 
and will not guarantee the actual addresses to be valid for any 
release of TRSDOS/LDOS 6.x after 6.1.2. 

Firstly, in TRSDOS/LDOS 6.x, there are 26 status flags, 
named A to 2 - in the Misosys "Programmers Guide to 
TRSDOS/LDOS 6.x" they are labelled xFLAGS* - where x is A to Z. 
The status flag table in 6.1.x resides at addresses 006AH to 0083H 
(page in low memory). The function of some of these flags follows 
(not all are used and some that are are not very useful) - 

CFLAG* - System execution flags. 

DFLAG* - Spool, verify, type-ahead and MemDisk. 

KFLAG* - <BREAK> or <ENTER> pressed, CAPS lock and an 

indication of a character in the type-ahead buffer. 
LFLAG* - Step rate and number of sides questions on/off in 

Format and 8" question in FLOPPY/DCT. 
MFLAG* - Modem output port image. 
OFLAG* - Memory management port image. 
SFLAG* - System status flags. 
VFLAG* - Cursor controls and clock display. 
WFLAG* - Interrupt mask port image. 

The useful flags of these are CKLAG*, DFLAG*, KFLAG*. 
LFLAGS, SFLAG* and VFLAG*. The flag bits that are useful under 
BASIC are marked with an • next to them. Flag bits marked + are 
SYSGENable, so if they are modified under BASIC (or assembler or 
C or whatever) and then a SYSGEN is done, they will remain in 
effect. An explanation of what each bit in these flags is for is 
listed below - 

CFLAG* - Add ress Q006CH 

Bit - If 1, system will not allow alteration of HIGH* via 
5VC-100 - useful if your program accesses system 
resources via the 0CMNDR SVC, and you want to retain 
control of HIGH*. 

Bit 1 - If 1, 9CMNDR is executing. This is NOT a flag that 
can be modified by the programmer' 

Bit 2 - If 1, then SYS1 is requesting keyboard input. If SYS 1 
is not resident when control is restored from your 
driver then the whole thing will hang messily! 

Bit 3 - If 1, then the system is requesting execution via SET 



or SYSTEM (DRIVER* commands. Useful to see if your 

filter/driver is being activated in the proper manner. 
+ Bit 4 - If l.OCMNDRwUl ONLY execute system LIB commands 

(including RUN'!). 
Bit 5 - Reserved by DOS. 
+ Bit 6 - If 1, QERROR will not output any messages. Useful if 

you want to handle errors in your own manner, 
+ Bit 7 - If 1, 0ERROR will send any error message to the 

buffer pointed to by the DE register pair, Useful if 

you want to modify any system error messages before 

displaying them. 

DFLAOs - Address 0006DH 

Bit - If 1 , then the spooler is active. 
+ tBit 1 - If 1, then type ahead is active. By setting this bit to 

0, type ahead may be deactivated, 
♦ Bit 2 - If 1, then VERIFY (ON) has been set. 

Bit 3 - Reserved by DOS. 

Bit 4 - If 1, then MemDisk is active. 

Bit 3 - Reserved by DOS. 

Bit 6 - Reserved by DOS. 
+ *Bit7 - If 1, then screen print will allow output of block 
graphics. 



KFLAG* - Address 00074H 

• BitO - If 1, then <BREAK> was pressed. 

• Bit 1 - If 1, then <PAUSE> was pressed. 

• Bit 2 - If 1, then <ENTER> was pressed. 
Bit 3 - Reserved by DOS. 

Bit 4 - Reserved by DOS. 
♦ •Bit 5 - If 1, then CAPS lock is on. Set this bit to to allow 
lower case input. 
Bit 6 - Reserved by DOS. 

• Bit 7 - If 1, a character is available in the type ahead buffer. 

LFLAG* - Address 000 75H 

+ Bit - If 1, FORMAT will rot prompt for the step rate of the 
drive. 

Bit 1 - Reserved by DOS. 

Bit 2 ' Reserved by DOS. 

Bit 3 - Reserved by DOS. 
+ Bit 4 - If 1, FLOPPY/DCT will not ask the 8" drive question. 
+ Bit 5 - If 1, FORMAT will not prompt for the number of sides 
to format the diskette to, 

Bit 6 - Reserved by DOS. 

Bit 7 - Reserved by DOS. 

SFLAG* - Address 0007CH 

Bit - If 1, then the system will only READ a file. The LRL 
will not be checked and the "file open bit" in the 
directory will not be set. 



+- 

I 



Two 



H o d e 1 



*** R E F **< 



Utilities 
*** 



U N I K E Y *** 



Cross reference for BASIC programs 
In sorted order 

REF* All integers, line numbers, variables 

REFS Same with printer output 

REF*xk Start full list at xx 

REFSxx Same with output to printer 

REF mm References for only xx 

REF"xkx All references to string "xxx 

* Variables up to B characters 

* Locates ANY string (even in REMs) 

* All machine language 

* Interfaced fully to TRSDOS 6.x 

* Does NOT provide the Edit function 

* Accessible from BASIC 



Provides these functions 

» One key entry for over BO BASIC key 
words and phrases. Some examples arei 



KEY 



/SHIFT 



/CTRL 



D 


DATA 


D€F 


W 


WHILE 


WEND 


o 


ON ERROR GOTO 


OPEN 


R 


RIGHTS < 


RSET 


L 


LEFTS < 


LSET 



* HELP screen with all key combinations 

* Self relocating 

* Each Function key programmable for up 
to BO characters. Change at any time. 



REF S 24.95 UNI KEY S 19.95 
Salsbury Associates Inc. 



BOTH S 39.95 



Add SI. 00 Postage USA S2.00 elsewhere 



610 Madam Moore's Lane New Bern, NC 28560 



— + 



Bit 1 - This bit is set to 1 when an EXEC only file is loaded 
via QOPEN. To operate bit 2 MUST be set to 1! 

Bit 2 - If 1. then an EXEC only file may be loaded. It must be 
set in conjunction with bit 1. 

Bit 3 - If li then SYSTEM (FAST) is operational. 
+ »Bit4 - If 1» then the <BREAK> key is disabled. 

Bit 5 - If 1, then DO is in effect executing JCL. 
+ Bit 6 - If li then extended error messages will be issued . 

Bit 7 - If 1. then DEBUG will be turned on after execution of 
the executing program. If the executing program is 
EXEC only, the bit will not be modified, but debug will 
not be entered. 

VFLAP* - Address 0007FH 
Bit - These bits 
Bit 1 - control the 
Bit 2 - cursor blink 
Bit 3 - rate. 
♦ •Bit 4 - If 1, then the dock will be displayed. 
+ * Bit 5 - This bit toggles the cursor state (on/of f??>. 
+ *Bit 6 - If 1. then the cursor is non-blinking. If 0, the cursor 
is blinking. 
Bit 7 - Used by the system to suppress blinking while it is 
executing code in the *DO driver , to prevent the blink 
task from changing state. 



Now the easiest method to access/modify these bits* knowing 
their addresses, is as follows- 

5 REM BASIC program to access/modify TRSDOS/LDOS 6.x system 

10 REM Copyright 1985 Rowan C. Evans 

15 REM Chatswoodt N.S.W., Australia 

20 REM flag bits. 

25 BASE.ADDRESS-&H6A5REM Base address only for 6.1 .x!! 

30 INPUTWhich flag to examine "(FLAGS 

35 IF FLAGS"" THEN END 

♦0 FLAG=ASCCFLAG»)!IF FLAG>90 THEN FLAG=FLAG-32 

45 IF FLAG<65 OR FLAG>90 THEN 30 

50 FLAG-FLAG-65 

60ADDRESS»BASE.ADDRESS+FLAG:VALUE«FEEX(ADDRESS> 

70 GOSUB 500 

130 INPUT "Modify this flag (Y/H) "?YESNO* 

140 IF L£FT»(YESNO*,l>»"N" OR LEFT«(YESNO»,l>«"n" THEN 30 

150 INPUT "Bit to modify "JBIT 

160 IF BIT— 1 THEN 30 

170 IF BIT<0 OR BIT>7 THEN 150 

180 BIT=2*BIT:VALUE-tVALUE XOR BIT) 

190 POKE ADDRESS, VALUE 

195 GOSUB 500 

200 GOTO 150 

500 PRINT "nag - ■}CHR»(FLAG+65)5FLAG»;* Current Value - 

"IVALUE 

510 PRINT "Bits 7 6 5 4 3 2 1 0"!START=128 

520 FOR X*l TO 8 

530 if (value and startk) then print '0 *} else print "1 "j 
540 start-st art/2 
550 next x:print:print 

560 RETURN 



O.K., so now you can play silly buggers with the system flags 
in TRSDOS 6.1.x, what happens when you want to do the same sort 
of thing to a program to run under LDOS 6.x on a Model 12 or 
MAX-80 7? These addresses aren't guaranteed, remember 171 
Well, LSI was rather smart and put a Supervisor Call into LDOS 6.x 
to get the base address of the flag byte table. This SVC is 
©FLAGS, #101. Knowing this, we can now write a machine language 
subroutine for a portable version of our BASIC program. This 
machine language routine is - 



START 



ORG 


03O00H 


I Anywhere, it's relocatable. 


LD 


A.101 


t Load A reg with SVC number. 


RST 


28H 


', Do SVC 


PUSH 


IY 


! Base address is in IY regs. 


POP 


DE 


} Move it to DE regs. 


LD 


(HL),E 


[ Save low order byte. 


INC 


HL 


» Next byte of calling variable 


LD 


(HL),D 


! Save high order byte. 


DEC 


HL 


i Point to start of variable. 


RET 




! Return to BASIC program. 



This routine must be called with an integer variable as its 
argument, otherwise the whole thing will BOMB"! 

So, the changes to make to the first program to accommodate 
the portability available under LDOS 6.x are - 

Add_ 



5 I\-0K»-"":DATA 62,101,239,253,229,209,115,35,114,43,201 

6 FOR X-l TO lliREAD N}S*«S»+CHR*(N>:NEXT X 

7 DEF USR0-PEEK(VARPTR(SSH1)+256#PEEK(VARPTR(S«>*2) 

Chanoe' 



10 BASE.ADDRESS-USROflV 



flags! 



And that's all' Have fun modifying your Model 4/4P's system 



54K $59.95 pro 

INSTALLED IN KEYBOARD 

TRS-80* Model l-UI 

Send us your Keyboard and we 
will convert it to full 64 K 
memory (48K RAM). Im- 
proved performance with or 
without Interface. 90 day 
warranty. Satisfaction guaran- 
teed. Quick return. Free return 
freight within U.S.A. 

ice mmmmmmmmmmmm 

International Carbide & Engineering. Inc. 

100 Mill St. • P.O. Box 216 

Drakes Branch. VA 23937 

(800)424-3311 

(804) 568-331 1 TWXi 910-997-8341 

*TM TANDY CORP. 



I was very interested in Tony Domigan's zaps to the "CLEAR" 
command for the Model III (in Northern Bytes Volume 6, Number 5) - 
so much so that I duplicated them for the Model I, 

These patches convert the "CLEAR" command to respect 
HIMEM and only dear the memory from 5200H to HIMEM on the DOS 
command "CLEAR" while the DOS command "CLEAR •" will clear all 
memory from 5200H to FFFFH and reset all user routing. 

ZAP SYS14/SYS,3,70 <I> 

CHANGE FE OD 28 



TO 
ZAP 



C3 75 51 
SYS14/SYS,4,88 (I) 



00 



CHANGE 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 

FE 2A CA 79 50 FE OD C2 76 50 2A 49 40 22 

BC 50 E5 Dl 21 FF FF C3 94 50 



TO 



END 

tEditor's note: For those of you who missed them last issue, 
here's the Model III version of the same zaps, by Tony DomiganJ] 



ZAP 



SYS14/SYS,3,B2 (III) 



8 



CHANGE FE 0D 28 

TO C3 87 51 

ZAP SYS14/SYS,4,9B (III) 

CHANGE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 
TO FE 2A CA 8B 50 FE 0D C2 76 50 2A 11 44 22 

AE 50 E5 Dl 21 FF FF C3 A6 50 
END 



COT THOSE HIGH TELEPHONE BILLS 

This almost sounds like on* of those "Good News-Sad Hews" 
jokes, The good news is that you can limit your monthly bill for 
computer-to-computer calls to $25 a month, no matter how many 
calls you make. The bad news is that at present) you can only do 
this if you live in one of twelve major U.S. cities! Hopefully, this 
service will expand to cover more areas of the country in the not- 
too-distant future (with my luck, it will probably get into Sault Ste. 
Marie in about the year 2025,,.). Don't go away if you don't live in 
one of the twelve major cities, because I'm going to reveal a little- 
known way that you can make use of this service to cut your long 
distance phone bills even if you don't live in one of those major 
cities. It will only be cost-effective if you do a LOT of 
telecommunicating, but for some of you, it could be an interim 
solution to those high bills (particularly if you live fairly close to 
one of the twelve major cities). 

But first, more about the service itself. It is called PC 
PURSUIT and is being offered by GTE Telenet, and they have 
established a free-access bulletin board that you can dial up for 
more information, The BBS number is (800) 835-3001. The following 
information was downloaded from that BBS, and should give you a 
little better idea of what is being offered. Thanks to George 
Matyasiek, STSOP of the Chicago Greene Machine BBS (his BBS 
phone number is (312) 622-4442) for tipping me off to this service. 

Ji\ Pursuit of almost anything! 

For just 125 a month, you can establish an unlimited number of 
connections to free telephone-accessible databases, bulletin boards 
and other communicating PCs in 12 major metropolitan areas. The 
PC PURSUIT service can save you up to 75 percent over long- 
distance telephone charges for your home PC. It's the first cost- 
effective alternative for home PC users who have been using 
standard public telephone services to make long-distance 
connections. 

With PC PURSUIT, you can explore a wealth of free resources 
and even discover more uses for your PC. In any of the locations 
accessible to PC Fursuit, you have the ability to! 

• Call and send real-time information to other communicating 
PCs. 

• Access public bulletin boards to exchange messages. (GTE 
Telenet is not associated with these bulletin boards or their 
services.) 

• Access free databases for information that can be 
entertaining and educational. 

• Download/upload public domain software. 

• Shop and advertise in electronic catalogs. 

Service Hours and Billing 

The PC PURSUIT service is provided from 6 pm to 7 am 
Monday through Friday and on weekends from 6 pm Friday to 7 am 
Monday (local time). 

The more you use the service, the more cost efficient it 
becomes! ^^ 

A PC PURSUIT subscription includes a one-time registration 
fee of just «25. Then, you pay a flat monthly fee of «25 for 
virtually unlimited use of the service. Each connection can last 60 
minutes. You »• billed monthly through your VISA or MasterCard 
account. Payment by check is also offered - if you would like to pay 
by check, call (800) 368-4215 (voice). 

Equipment Requirement 
To use PC PURSUIT, all you need are — 

- a telephone line 

- an auto-answer modem - 300 or 1200 bps 

- a terminal or a PC with asynchronous communications software 

Parameters? 
Communication parameters for your hardware should be set-up 
consistent with the PC or BBS or host computer you wish to dial, 
We recommend you use the parameters given below, although several 
jther parameter settings also work fine on PC PURSUIT! 



BpwtgVttPCPURSVn 
After you are a registered user, you must do the following to 

use PC PURSUIT! 

a) Use your modem to call the local PC PURSUIT access 
number, 

b> Request the city and destination phone number you wish 
dialed. 

c) Hang-up and then receive your call-back, 

d> Await the connection and out-dial! then procee d just as if 
you had dialed the destination phone number yourself. 

Ex ample! 

You live in Hew York and have an area code and phone number 
of (212) 123-4567, and you wish to call a bulletin board in San 
Francisco in the 41S area code at 765-4321. 

a) Dial the local access number of 675-3738 to reach PC 
PURSUIT. 

b) When request session begins, answer the questions as in 
this example! 

Welcome to Telenet PC Pursuit 

Enter your 7-digit phone number (XXX-XXXXH 123-4567 

Which city do you wish to call? SAHFRAN 

Enter the phone number you wish to call! 765-4321 

You are t( > in the queue. Do you want to wait, 
or restart? (Y/H/R)? Y 

c) When you key in the N(o) to the last question, your call will 
be disconnected. If you key in a Y(es>, you will see the following! 

Your request is being processed. 

Please hang up and wait for your call-back. Good bye! 

At this point, you should set your modem and/or PC software to the 
AUTO ANSWER mode. 

d) In about 20 seconds, you will receive a call-back from PC 
PURSUIT. You will see the following banners! 

This is your call-back. Please stand by ... 

Please wait for 3-step call completion, 

1) Network request submitted 

2) Network connection complete, Placing request call 

3) Connection complete 



e) You now are connected to your requested destination city 
and phone number. If you've accessed a public bulletin board, most 
require that you enter two carriage retu rns o r a Ctrl-C. 

f) To disconnect from the PC PURSUIT service, Just disconnect 
by hanging up from your communication software, modem and/or PC. 

g) Customer Service - If you have any difficulty using PC 
PURSUIT, call Telenet Customer Service at (800)336-0437. 

PC PURSUIT Cities and Access Numbers 



cm 



MEACOOE 
SIRED 



LOOM. ACCESS CUT 

NUMBER ACCESS CODE 



Date Bits! 

Stop Bitt 

Parity! 

Duplex! 

End of Line! 



7 

1 

Space 

Full 

Carriage Return Only 



Atlanta 


4M 


SB4-2873 


MUntl 


Boston 


617 


423-KS47 


Boston 


Chicago 


312 


565-3927 


Chicago 


DtllM 


2H 


e\-7m 


Dslles 


Denver 


313 


671-5146 


Denver 


Detroit 


313 


WH555 


Detroit 


Houston 


713 


227-5712 


Houston 


Lot Anjeles 


213 


624-6162 


LA 


New York 


212 


675-3733 


Mew Tort 


Philadelphia 


215 


574-1613 


Philh 


Sen FrtnciKO 


113 


396-1131 


Sen Fran 


Mtihinqton D.C. 


212 


659-2863 


HnhDC 



That ends the downloaded information, and if you have reed 
carefully, you may have concluded that there is no way that you can 
make uh of this ***** if you live anywhere outside the local 
calling area of on* of the twelve major cities. After all, PC 
PURSUIT won't dial you back if your number is a toll call, right? 
That's correct, so what YOU nave to do is to arrange to have a local 
number for PC PURSUIT to dial. Enter a little-known telephone 
company service called REMOTE CALL FORWARDING (RCF). This 
service operates in the exact same manner as CALL FORHARDING 
on your regular telephone (if that service is available in your area), 
with two exceptions! One, calls are ALWAYS forwarded from the 
RCF number, and two, there is no actual telephone connected to the 
RCF number - as I've Just said, ALL calls are forwarded to another 
location! 

Now some of you may not even know what regular Call 
Forwarding is, so let me explain. If your telephone is served by a 
modern (electronic) telephone exchange, you can request Call 
Forwarding service (at an extra monthly charge). This gives you the 
ability to have incoming calls to your telephone automatically 
transferred to another number. For example, let's say you have a 
business but want callers to be able to reach you at home during the 
evening hours. When you leave your place of business at the end of 
the day. you dial a special code followed by your home telephone 
number, after which all calls to your business phone are 
automatically "forwarded" to your home phone. When you return to 
your office the next morning, you dial a different special code to 
cancel the call forwarding so that you can once again receive your 
calls at your place of business. 

REMOTE CALL FORWARDING, as stated above, is exactly the 
same except that calls are ALWAYS forwarded to another number, 
and the RCF number does not run into a home or business - it exists 
only in the "mind" of the telephone company computer. The service 
is intended for business users that wish to provide a "local" 
telephone number so that people in a specific locality (which is 
outside the normal "local" calling area of the business) can call that 
business toll-free. However, in most areas there is probably no 
regulation which says that a person cannot have a residence, RCF 
line (at the lower residential telephone rate) - the local phone 
company may never have done it before, but that doesn't necessarily 
mean that it can't be done! 

One further point - calls can bn forwarded to a local gi »«>B 
distance number. If a call is forwarded outside the local calling 
area of the RCF number, the toll charges for that portion of the call 
are billed to the RCF number, not to the calling party. Row, note 
that in some cases the calling party (the caller who dia^s the RCF 
number) and the party who ultimately receives the call may be far 
enough apart that the call would be considered a toll call if placed 
in the normal manner, but if the RCF number is located in a 
telephone exchange that is somewhere midway between the two 
points, it may be that no toll charge will be levied! Why? Because, 
for billing purposes, the call is actually treated as Jwo calls - one 
call from the calling party Jfi the RCF number (for which the calling 
party pays, if that portion of the call is a toll call) and another call 
from the RCF number to the ultimate destination of the call (for 
which the RCF subscriber pays, if that portion of the call is toll). 

Now, all that PC PURSUIT cares about is that it's dialing a 
local number (within the local calling area of the PC PURSUIT node). 
Let's take two different cases and see how Remote Call Forwarding 
can be used to gain access to PC PURSUIT and save money. The two 
cases that we will discuss are: 1) A user who lives jysl outside the 
PC PURSUIT local calling area, 2) A user who lives at some greater 
distance from the PC PURSUIT node. 

1) A user who lives jyft outside the PC PURSUIT local calling 
area will often find that there is a telephone exchange that is a 
local call for both him and the PC PURSUIT node. This will usually 
be a suburban exchange located between him and the central city 
area, and there may even be more than one exchange that would 
qualify. If there is such an exchange and RCF is available in that 
exchange, the user would simply apply for an RCF number in that 
exchange and have the calls forwarded to his phone. PC PURSUIT 
would dial the RCF number (a local call) and the RCF number would 
forward the calls the user's phone (also a local call). Thus, the 
additional monthly cost is only that of the RCF line. This setup has 
an added benefit in that others in the central city area may now 
make calls to the RCF subscriber on a toll-free basis. 

If there is such an exchange (that is local for both the user 
and PC PURSUIT) fey± remote call forwarding is not offered there, it 
may be possible to have &B regular phone lines run into a friend's 
home or office in that exchange area, and to use a device called a 
"call diverter" to connect the two (in fact, if the exchange is 



operated by a small, independent phone company, you may be able to 
work out en arrangement to have the diverter located right on the 
phone company's premises). This is a very poor solution, however, 
because most call diverters do not have internal amplification and 
thus the signal will be degraded, perhaps to the point of making it 
unusable. Nevertheless, if you know what you're doing, this might 
be a solution for a stouthearted few, 

2) A user who lives at some greater distance from the PC 
PURSUIT node (too far away to have an overlapping local calling 
area) may find it advantageous to get an RCF line anyway, and have 
calls forwarded to his phone. There will be a per-minute toll charge 
for each call, but it will almost always be much lower than dialing 
distant comp u ters directly (especially if you call during the discount 
rate periods). The RCF line should be placed in an exchange that is 
within the local calling area of the PC PURSUIT node. Be aware 
that if the RCF line is run out of a suburban exchange rather than a 
•downtown" exchange, the fixed monthly service rate may well be 
lower. Why? Because local rates are often based on how many 
telephones are within the local calling area of an exchange. 
Suburban exchanges often have a smaller local calling area than the 
central city, thus the monthly rate is lower. Just don't pick an 
exchange so far out in the suburbs that you get out of PC 
PURSUIT'S local calling area. 

It may be worth your time and effort to determine if any of 
the suburban exchanges are served by a different telephone 
company than the central city, since there will almost certainly be a 
variation in monthly rate (and other charges) if that is the case. 
Remember, your RCF line can be put in «y. exchange that is a) a 
local call for PC PURSUIT, and b) offers the Remote Call 
Forwarding service. For maximum savings, determine which 
exchanges meet both of those qualifications, then determine the per 
minute toll rate from each such exchange to your location. Then, if 
more than one exchange has the lowest pertninute rate to you, 
check to see if those exchanges m served by different local phone 
companies and if so, pick the one with the lowest monthly service 
rate. 

Also, there is a way you may be able to save money on the 
per-minute toll charges, Depending on how far away you are from 
the PC P URSUIT major dty, and also depending on any applicable 
state and federal regulations, you may be able to choose which long 
distance carrier will serve your RCF line (actually, you should be 
able to choose this anyway, but if you are in the sa me state (or in 
some states, the same area code) as the PC PURSUIT node, the local 
phone company may handle the entire call (and collect the toll 
charges) anyway. It all depends on how your state Public Service 
Commission feels about competition among long distance 
companies). If you have a choice, you want to choose a carrier that 
offers the best discount to vour location (and remember, your calls 
will only be forwarded to ONE location, so that is the only location 
you will want rate comparisons for) AND that has quality circuits 
from the PC PURSUIT node to your location (most MODEMS don't 
work well on trashy circuits). Be sure to take the "volume 
discounts* offered by some carriers into consideration when 
comparing rates. Also, keep in mind that most major metropolitan 
areas are served by a large number of competing long distance 
carriers, so it is likely that you will be able to shave your per- 
minute charges by a good percentage, Just by shopping around. One 
caveat - the long distance service you pick must offer "Dial 1" 
access in your RCF exchange. Remote Call Forwarding is Qfii 
designed to access carriers that require you to dial a seven-digit 
number, wait for a second dial tone, and then dial your account 
number and the number you want to call, 

In both of the above cases, you will first have to dial PC 
PURSUIT the normal way (i.e„ as a toll call) to establish the 
connection. But then, PC PURSUIT will call you back on your RCF 
line, the call will be forwarded to you, and you can start saving 
money. Be sure to take everything into account - the monthly 
charges for PC PURSUIT and the RCF line, plus your estimated toll 
charges for calls from the RCF number to you, when deciding if the 
use of an RCF line will be cost-effect ive for you. 

TAS / NORTHERN BYTES ELECTRONIC ft*Tf. *DDRESSBS 
HCI Mall ID - Northern Bytes: 102 -7413 
MCI Mail ID - The Alternate Source: 1 ?'„1?; 
TELEX - Northern Bytes: 650102741,* 

ANSWERBACK: 6501027413 MCI 

TELEX - The Alternate Source: 6501097407 

ANSWERBACK: 6501097407 MCI 

CompuServe BasyPlex: 72167, i?i 

Delphi Mail: TASI ° 
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HINTS ON READING TRS-80 COLOR COMPUTER DISKETTES 

UMBER NEHDQS^eO 

Downloaded from Apparat's BBS by Bob Seaborn 

A few people have requested the ability to read diskettes 
from the TRS-80 Color Computer (Coco) by NEWDOS/80. This disk 
is rather foreign to NEWDOS/80, but is close enough to get by. 

The Coco disk does not contain anything dose to a BOOT/SYS 
in the way NEWDOS/80 does because the entire DOS resides in the 
Coco ROM pack / drive adapter. The directory is located on track 
17. Radio Shack gives a fairly detailed description of the Coco 
directory structure as well as disk organization, This discussion 
will not get involved with use of the directory other than what has 
just been stated. One could write a program for NEWDOS/80 that 
would allow for file access of the Coco disk, but we did not see that 
much call for it, so we didn't implement the idea. 

The Coco disk is organized in 35 tracks, 18 sectors per track, 
double density. It numbers the sectors from 1 to 18 instead of to 
17 as does NEWDOS/80. Also, the tracks are numbered from 1 to 
35, where NEWDOS/80 numbers these from to 35, Because of 
these differences, we have to adjust the PDRIVE appropriately in 
order to access all of the data sectors. On the Model III/4, we use 
the following PDRIVE! 

TI=AI,TD=E,TC=35,SPT=18,... 

The TI flag "I" is used to tell NEWDOS/80 that we have a 
diskette with sectors numbered from 1 instead of 0. The same 
PDRIVE is used for a Model I except for the TI specification. Use 
TI=CI (for Percom, Aerocomp, etc. type double density adapters), 
T1=DK (for Radio Shack double density adapter! see zap # 76 to 
implement), or TI-EI (for LNW 5/8 doubler). The TSR specification 
is not listed as this is dependent on your drive, so just use what 
you normally use. The GPL, DDSL, DDGA specifications are not 
listed since we are not accessing the directory, Just use standard 
numbers here as in examples #1 or #2 on page 2-38 of the 
NEWDOS/80 manual. If you were to write a special program that 
would access files via the directory of the Coco diskette, it's 
doubtful that these would be useful. The Coco directory sectors are 
not marked as "read protected" as are the NEWDOS/80 directory 
•ectors. 

Activate the PDRIVE in drive 1 to allow access to data 
sectors of the Coco diskette with the following! 

" PDRIVE,0,1,TI»AI,TD«E,TC=35,SPT=18,A 

With modifications to TI specification for Model I as discussed 

above. 

Use SUPERZAP to examine the diskette. You can use either 
the "DD" (display disk sector) mode or the "DTS" (display track 
sector) mode of SUPERZAP. Here, we will access the sectors as if 
they were numbered from to 17 from each track instead of 1 to 18. 
Also, we will access the track as if they were numbered from to 34 
instead of 1 to 35. The PDRIVE specification adjusts the sector and 
track numbering for us. Attempting to access track number 35 
(actual 36 to the Coco) will result in either a read error (as there is 
no data to be read) or track (or sector) out of range error. Go to the 
third sector of the directory to find the first file entries. You may 
wish consult the Radio Shack documentation to figure out how to 
find the actual data on the disk from the directory information or 
just randomly hunt down the file data on the disk. It seems that the 
Coco allocates file space outwardly from track 17 instead just 
upwardly from track 0. The Coco file allocation (granule) is in 
blocks of 9 sectors at a time. To find the start of a file just look at 
sector or sector 9 of each track. 

If you want to bring BASIC programs over to the Model 
I/III/4, you should have the Coco save the program in ASCII format 
first. Use! SAVE"filename",A to do this. The same applies for the 
opposite direction! have the Model I/III/4 save the file in ASCII. 

Once you have located the data file on the Coco diskette, 
determine the exact length and location of the file on the disk. You 
may want to write down all of the sector numbers related to the file 
that you want to transfer. Be sure to use relative disk sector 
number and not track/sector numbers. Count the number of sectors 
that are of interest. Under NEWDOS/80 Ready (or MINI- 
NEWDOS/80), use the CREATE command to create a receiving file on 
the NEWDOS/80 diskette of the same size. This file will receive 
the data. For example the length of the Coco file is 7 sectors in 
length, 

CREATE,SAMPLE/DAT,REC=7 



Use SUPERZAP "DFS" mode to map out the drive relative 
sectors (DRS) for all (7, in the above example) sectors allocated to 
the file (SAMPLE/DAT). Then use CDS (copy disk sectors) to copy 
the Coco file's sector data to the NEWDOS/80 receiving file's data 
sectors. Use caution, if you accidentally copy the data to the wrong 
place, other good data could be destroyed. 

If you want to make a copy of a Coco diskette on the Model 
I/m/4, NEWDOS/80 can do it easily. Bet up the »ame PDRIVE as 
discussed above. Then, place a blank diskette in drive 1 and enter! 

COPY 0,1„FMT,BDU,SPDN»1 

Follow the disk mounting prompts carefully. When the format 
and copy sequences are done, your duplicate disk is ready for use. 

We were using a diskette from a Color Computer II disk 
system. We do not know for sore if this applies to the original 
Color Computer disk system as well or not, but find it hard to 
believe that Radio Shack would have gone into any major changes to 
the system. 

SPEEDY SERVICE FOR NORTHERN BYTES READERS IN 
AUSTRALIA AND NEW ZEALAND! 

If you live in Australia or New Zealand, you can now place 
orders with The Alternate Source and get much faster service on 
most items, including issues of NORTHERN BYTES. If you have a 
Telex machine, you may contact us directly using our MCI/WUI 
Telex number, 6501027413 MCI. Otherwise, simply place your order 
with Tony Domigan, and he will forward the order to us by 
electronic mail, which will save you up to a week over conventional 
airmail. Only VISA or MASTERCARD orders can be accepted in this 
manner, 

Tony may be contacted in one of the following ways! 

1) Mail - the address is! Tony Domigan, PO BOX 150, 
Thomastown, Victoria, 3074, AUSTRALIA. 

2) Phone! (03) 466-1738 

3) TELEDATA (TAB) IDENT ! DOMIPOBOWINN 

4) VIATEL IDENT 5346617380 

5) MCI Mail ID! 254-5121 

6) U.S.A. Telex address (MCI/WUI network)! 6502545121 MCI 

The latter two methods are mostly given for the benefit of our 
North American readers, who may wish to question Tony on one of 
the articles he has written for NORTHERN BYTES! 

Please note that we are at this time experimenting with a new 
mailing service that will permit us to give airmail service to all of 
our regular mailings of NORTHERN BYTES, without the «1.00 
surcharge we have had in the past. This applies to current issues 
only, not back issues (which will still be charged at «3.00 each for 
air deliv ery). 
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A DOUBLE SIDED BOOTING DISK UNDER LDOS 
by Frank Marten 

[Reprinted from the ADELAIDE MICRO-USER News (produced 
by the ADELAIDE MICRO-USER Group, Inc.. 36 Sturt Street. 
Adelaide. South Australia 5000).] 

I recently had an enquiry about how to create a double sided, 
double density LDOS system disk for the Model I. Thit resulted in 
my having a closer look at creating other kinds of DOS disks for the 
Model I and the Model EH. 

When backing up LDOS system disks, you may be aware that if 
you are using 5.1 .4. it begins allocating from track xero and works 
its way up until all files have been copied across (this applies to a 
backup reconstruct only). On 5.1.3. the allocation is random which 
will result in the files dispersed all over the disk. Both types of 
backup reconstructs result in a rather poor system disk. One has 
its system files at the beginning of the disk mixed with other files, 
the other method results in any future saving of files to take longer 
as all the holes need to be filled. 

As the steps involved to create an optimum disk require 
several patches to STS8/STS and an organised approach to the files 
to be copied, the solution to the problem is to create a Job Control 
Language file which will back-up the disk to whatever format is 
required. 

This is exactly what I have done. The JCL listing provided 
will create a system disk for the Model I or III. in either single or 
double sided format and double density. As I have used the method 
of passing parameters to the JCL on entry, it is easily adaptable to 
add as many other parameters as you like (as long as they can fit on 
one line). An example of this might be to allow an option for the 
density of the destination disk. This would be quite simple but if 
backing up from a double density to single, you may need to get rid 
of the global backup of all visible files. Other options could be to 
allow the passing of the source and det tii.ation drives, entering of 
the master password or whatever other feature you wish. 

The JCL file I wrote will allow you to specify the disk name, 
the number of sides and the model of the machine you are using. 
The variables used for this are Nl ■ disk name, S ■ 1 (will give you 
a single sided disk) and M3 if it is a Model m. The defaults are 
Nl « Idossys. sides ■ 2, model ■ Model I. and source disk « drive 
zero, destination drive » one. 

One very important point with this JCL is that the format will 
occur even if there is data on the destination disk. It is for this 
reason that I made the JCL give audible prompts before it proceeds 
with the format. It also gives the beeps when user input is 
required such as after format to ensure the disk was OK and a 
continuous two tone tune when it has finished to let you know the 
job has been completed. The reason for this is because it can take 
more than twenty minutes to complete the process. 

If the disk created was a Model III or it was single sided, the 
JCL will not be required until the next time you wish to create a 
special disk as QFB will backup the disk much quicker. If you 
created a double sided, double density Model I system disk, you will 
not be able to use QFB as it will abort on track zero. Super Utility 
will also abort on track zero because it will try to copy thirty-six 
sectors when there are really only ten. You can get around this by 
skipping the sectors marked as bad by SU+. 

When you have completed the backup, on the Model I (double 
density and double sided disks), you will have to execute LOG JO and 
then configure the disk how you like it followed by SOLE SO. The 
LOG command will allow you to switch the new disk into drive zero 
if your original disk was not double sided. This would also be 
necessary for a Model m except you do not execute SOLE2. 

I have also provided a configuration JCL which will allow you 
to specify the name of a KSM file. The default is SETKSM/KSM. 
You would enter this by TX3 CONSET (K-FILESFEC)'. 

' DOS DISK CREATION JCL 
Xlf. DOS Dirt Creation 

• by 

Frtnk Hartan. 

. If you did not verify the target disk mm t mdcl type 
, <«3 for Mdel 3) and fides (s=i) on entry to tot XL, 
. Disk mm ■ LDOSSYS. SH)ES*2 and nodal * 1 . 



. i NOTE i 



i.e. do dtacrtat (nl<nydisk,fl,n3) 

The DOS di* mtt not be wit* protected! 



Program rewired on DOS disk art '. 

' ) Soltl and Soli2 (if Model 1) 
2) patch/end 
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. 3) nomal ty* filet 

«> norwl utilitiei (backup.forwt etc) 
S) log/md (if double tided) 

• 

. n Naming, thtrt i% no turning back fro* FORMAT a 

//if -nl 

//assign nl'ldossyi 

//end 

//if -s 

//mi«i 1-2 

//mi«n tl-11 

//■Miff t2*lo 

//elst 

//•ui«n U«tr 

//assign t2»18 

//end 

//alert 1,1 

//hum ZldPlace target dirt, in drive 1 aid prats tfNTED. 

fornit 11 ( MM -' i nir'.rn.ddwi.cylHi.iidti^el.dJt) 

//iltrt 1.1 

//pautt lid famit OX? <BflO> if yet, 4KM0 if not. 

//if -*3 

toltl tl 

//end 

patch sytfl/tys.twtm MlifMUt) 

backus tyst/tyttl tl <t.«*n) 

backup aytt/syttl SI (t.*>n) 

Pitch tyt8/tyt.syttan (dM,ff«*t2l) 

backup «yi7/iyi il tl (s.ejm) 

patch tytB/tys.tyttM (dti.ff-Kltt 

backup tystl Jl (nwiw.t) 

patch sysB/syt .tystan (dN.fMl) 

patch tyt&Vsyt .syttentl (dtl.ff>41> 

backup lbasictl tl (t-n.i) 

backup /cndtl tl (a«n,i) 

backup /dvrtl SI <«*> 

backup /flttl tl <•*») 

backup tl tl («*i,i,ntw) 

backup :i tl (new) 

Zlf. 

Steps to canplet*. 
. 

1) type LOC tl and switch disks uhm prwsted 
(if double tided) 

2) configure your nw dirt 

3) type SYSTEM (SYSGEN) 

4) execute S0LE2 tl (if Nodtl I) 
* 

. Prett <EKTER> to exit. 

//alert (1,1,7,1) 

//exit 

CONFIGURATION JCL 
Xlf Set up Configuration 

* 

. If you did not enter the ktn file on entry, the default 

. it tetktft/ktM 

. 

i.e. do comet (k»flletpec) 
. 

//alert 1,1 

//flash Zld Prett <BflER> «hm ditk it ready. 
* 

■ystea (driveM,cyMI,ttap*l,dele<pwt) 
tyttan (orivfl,cylMI,step*l,delt>r , on) 
tytten (drive*2,cyl>tt,ttep>l.dfli*r j on) 
tyttan (bttepM) 
tyttan (blink, mill) 
set *i ki (j,t,<K3,r«l> 
//if -k 

//ait ign k-tetktn/ksn 
//end 
filter *i ktn Ikl 

//alert 1,1 

//RASH Zld Prett «HTER> to exit and then tytajn the ditk. 

//exit 

If using LDOS 5.1.3, apply the following patch to BY88/SYS 
before using the DOS creation JCL! 

PATCH SYS8/SYS.SYSTEM (DO0.FE-2E 01 00 00 00 00) 



PATCHES FOR MODEL 4 USERS 

Patches and zaps scam to be ever popular with our readers, so 
here's a few more. These came from various sources, but probably 
originated with Radio Shack and/or Logical Systems, Inc. As 
always, these patches are untested by us here at NORTHERN 
BYTES, so apply them ft vour own risk , and please, to a backup of 
your master disk only! 

The first series of patches arm intended to correct a possible 
problem with disk I/O in both LDOS 5.1 and TRSDOS t>, when running 
on later versions of the Model 4/4P. This problem is caused by 
Radio Shack's change to the 1770 and 1773 Western Digital disk 
controller chips. These chips are jjpt 100\ eoftware compatible 
with the controller chips used in previous models, and require 
larger minimum gaps in data and address fields. 

These chips are present in the newer Model 4 and in #21 Model 
4P computers, specifically on the Gate Array Logic boards. These 
patches should work with all of the disk controller chips used in the 
Models 4 and 4P (old or new), so you can apply them to your DOS and 
for use with ajiy. Model 4 series computer. The patches will also be 
made a part of the next releases of TRSDOS 6 and LDOS. 

Please note that the problem is with the disk format itself as 
used on this type of disk controller, so you should format a batch of 
blank diskettes with the new version of FORMAT, and then BACKUP 
all your existing diskettes to the newly formatted ones. 

PATCH FOR TRSDOS OA.OZ.OO 

FOWKC/FTX - B/14/85 - by ~i*d- 

This pitch it for TRSDOS M.I2.N Level AN 4M.YI 

This pitch to FORMAT will increase the gaps to the nownel requirements 
of tht 1771 end 1773 chips. This is necessary as the required gaps «rt 
larger than f or tht previously used 1771, 1791, 1793 series chips. 

Use HUTU) to create this patch filt, and then apply wins the conund! 
PATCH FORreYT/CHO.UTILITY FORHATC/TTX 

0C5,7A=Z8 
FQ3,7A=H 
DI5.99ME 17 
FI5,99*FF 11 

. End of patch 

PATCH FOR LSPFB/CHO 

LSGFK/TIX - 15/14/85 - by -jjkd- 

This patch is for LsBFB/DO fro* LSTs LS-OK8/C0rP package. It is already 
present on Radio Shack's TRSDOS 4.2 Utilities package. 

This patch to BFB Mill increase tht gaps to the norinil requirements 
of the 1771 and 1773 chips. This is necessary as the required gaps are 
larger than for the previously used 1771, 1791, 1793 series chips. 

Use BUILD to create this patch file, and then apply using the comand! 
PATCH LSOFBAKD.UTILmr LSOFBC/FEt 

DK,0>2I 
F«,C0=11 
MB.EME 17 
FK.EMT 11 



End of pitch 



Ztltl 



FORMATC/FIX - 15/14/85 - by -jjkd- 

This patch is for LDOS 5.1.4 Model 3 and Model 4 in Model 3 mode «NLYi 

This patch to FTJMAT will increase tht gaps to the nominal requirements 
of tht 1771 and 1773 chips. This is necessary as tht required gaps are 
larger thai for tht previously mad 1771, 1791, 1793 series chips. 

Use BUILD to create this patch file, and then apply using the command! 
PATCH rTJRMT/CHD.RBG FORMATC/FIX 

015,80*21 
Dtt.ACHE 17 



. End of patch 

PATCH FOR QFB/CMD FROM LDOS S.l«« 

. BFBC/FIX - 15/14/85 - by -j*d- 

, This patch is for QFB/CND fro* LDOS 5.1.4 sONLYi 

. This patch to BFB trill increase the gaps to the nominal roquii « nts 
. of tht 1771 and 1773 chips. This is necessary as tht required gaps art 
. larger than for the previously used 1771, 1791, 1793 series chips. 

. Use BUILD to create this patch file, and then apply using the command! 
. PATCH DFTi/CMD.RWO OFBC/FIX 

t 

DIA,CE«ZI 
DeA.FJME 17 

. End of pitch 

The next two patches are for Model 4/4P users who want to 
make the fullest use of the sound board in their machines. 

PATCH FOR CLICK/FLT 

•This jel patches CLICK/FLT for a better sound. 

.Patch can be YANKED 

.It does NOT check to see what is at the listed dowry location 

•but simply patches it. 

PATCH CLICK/FLT. FILTER <X'217B'«28 27) 

RESET «a 

SET »CK CLICK/FLT 

FILTER «HCK 

//EXIT 

PATCH FOR LDOS 5.1«^ <JCL ALERT > 

.This patch file for LDOS 5.1.4 changes the JO. 

.ALERT Macro output from the cassette port to 

•the sound board in the nodel 4 

. 

•to use type *> patch sysll/sys, system alert/fix 

DH2,7C*93 
012,62=93 
•End of patch 

Finally, here are two sets of patches for the Model 4 versions 
of Radio Shack programs! 

PATCH FPP ALPS 

•Pitches to tht TRSDOS 4 ASSEMBLY LANGUAGE DEvHJFFJBCT SYSTEM 

.These patches are fran Radio Shack Customer Service Bulletins not. 

.2112-11, 2112-12, 2112-13, 2112-14 

•This will bring the current version of tht ALDS to 13.12.13. 

. AUDIT is the only nodule that will contain the new version nutter, 

t 

•Fixes tht Hait on Error switch for tht assembler. 

•Fixes the Hold Key Function. 

PATCH ALASH (Dt*,53=C0 4A X li;FI4,53=38 12 18 13) 

PATCH ALASH (DR,ll=5C:Ft8,ll4F) 

PATCH ALASH (019,3918 EF CI!FI9,39«45 EF FD) 

PATCH ALASH <Dt9,4l*fE 8t 28 CE FE 41 CI FDtFI9,4e-C8 M 44 21 CD FD CB M) 

PATCH ALASH (D49,48"C8 M 8E 3E II EF FE WSFI9,4BHE C8 FD CB IA 8E 3E 45) 

PATCH ALASH (019,51*28 CO C9 II II II II el!FI9,5l-EF FD CB M 44 21 BB FD) 

PATCH ALASH (019,58=11 II II II II II II ll!FI9,5B"CB IA 54 28 Fl H> CB M> 

PATCH ALASH (019,44=11 IS:FI9,4t=94 C9> 

PATCH ALEOn/CMD (DM,31*31SFi|,31<3l) 

I 

.Defeats the blank page feed after • listing. (Optional) 

//MZY» Do you want to apply this patch (1-Yes 2-mo) 

//l 

PATCH ALAShVCN) (DI9,8B«II II II II MtFW,8B"#4 K CC 41 3A) 

/// 

• 

•Fixes cursor in ALBUG H option. 
PATCH ALBUG/CHD (DIE,12-C3 5C!FIE,12"C5 C5) 
PATCH ALBUG/CHD (De£,lB=E4!FIE,18-4F) 
PATCH ALEOn/CMD <DII,31«32!FII,31"31) 

• 

•Keeps the characters in the first column fro* disappearing 
•when the cursor is moved. 
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PATCH AUDIT/CHD (MS.ttG El 3EJFB.14-C5 DS E5> 

patch aledit/di> (dh,31«33:fh,31*32> 

//exit 

patch for superscripsit 1.01.00 

PATCHES TO UPDATE SuTERSCRIPSIT l.ll.M ON TRSDOS 4.2 

TO LATEST VERSION, HHICH IS 1.11.13 

UPDATE l.ll.ll TO 1.11. II 

(PROBLEM! A block dtlftion that spans More than on* extent 
on the dirt, will cwk the syste* to lock up.) 

PATCH SCR32/CTL (D03,8F«AD HiFK.SFHS 4F> 
PATCH SCR17/CTL (Ml,Cl>3i:Fll,Cl=3l> 

UPDATE l.ll.ll TO 1.11.12 

(PROBLEM: A DocuMnt returns to the screen in reverse video 
ifter printing if it contains header* end footers.) 

PATCH SCRTPSn/CU CDM,B5=21 M 13 22 3B B6!F»A,B5«H II II II II II) 

PATCH SCRIPSIT/CTL (DIA.CEO F2 4D!F0A,CE»11 M CD 

PATCH SCRIPSIT/CTL QMMMl II 13 22 3B B4!FOB,41*00 II II II II II) 

PATCH SCMPSIT/CTL (D3E,08=32 FF 40 CD 57 80 AFiFSE.DS-FE Fl C2 9C 99 CD IF) 
PATCH SCRIPSIT/CTL (DSE.DF'SZ FF 40 C9 3A FF 40:F3E,DF»U C3 AF 99 C» CD IF) 
PATCH SCRIPSIT/CTL (D3E,E4>«7 C2 C8 3A 11 M Ci:F3E,E4"11 X II C3 B2 96 It) 
PATCH SCRIPSIT/CTL (DX,ED"C3 AS 3A:FX,EDMI II II) 
PATCH SCRIPSIT/CTL (D3F,6W7 «D:F3F,4D=57 3D) 
PATCH 9CRIPSn/CTL (D3F,9M2:F3F,91-10> 
PATCH SCR17/CTL <M1,C1«32:F01,C1*31) 

UPDATE 1.11.12 TO 1.11.13 

(PROBLEM A "clow fault" error testa* will occur when attesting 
to exit the prop*) if HELP/CTL hit been deleted fron the disk.) 



PATCH SCRIPSIT/CTL <D3E,13=21 Z5!F3E,13-H II) 

PATCH SCRIPSIT/CTL <DX,19»83 7E FE FF 28 IC 18:F3E,19«H II II II II II 10) 

PATCH SCRIPSIT/CTL (D3E,5*»M:F3£,5MI> 

PATCH SCRIPSIT/CTL (D3E,52-18 F3 H:F3E,52"Z1 23 83) 

PATCH SOOPSIT/CHD (D01,«O33!F01,0C»30) 

PATCH SCR17/CTL (DH,C1*33:F01,C1*32> 

^MMMMMl-«-js^>-«-<MMMMMWMMMt-4-u-u-«-« i i n i m at 



DATECOMP/ASM 
A date eomprassion routine by Darren R. Besler 

CThis assembly language source code listing is reprinted from 
the Winnipeg (Manitoba, Canada) Micro-80 User Group Newsletter, 
with slight changes in formatting to make it fit within the Northern 
Bytes column width. If you have ever wanted to sort by date, or to 
store a date in only two bytes of memory, this routine may offer a 
partial solution to your problem!} 



Hill 
Hill 
11121 
11131 
IIMI 
11151 
H14I 
11171 
H18t 
11191 
II2II 
11211 
11221 
11231 
11211 
11251 
11241 
11271 
11281 
■t2?t 
II3M 
11311 
11321 
11334 
11310 
•0350 
■1361 



(DATEOTP/AW 

;A dete compression prwn for Z-81 based MicroeoMpvters. 

. 

t 

(Hrittan By: Darren R. Besler 
(Dete! March 21, 1965 

(This progreVsubroutine coMpresses a 4 bate ASCII dat* 
{field into a 2 but* integer. This prolan is a spin off 
(of the BASK props* written by John Allison which was 
(published in the March 9, 1985 issue of 'THE WNfflPEC 
HaCRO-M USERS CROUP NEWSLETTER'. 

* 

(The ptr to the dete is passed in the H. register, and the 
JcoMpressed date is returned in the HI register. All other 
(registers are preserved by this subroutine. Very little 
(error checking is done and NO error check should be 
(assuned. 

(The dete fornet accepted is as follows: 'HMDDYY', where 
(H,D, and T are the ASCII representation of the digits in 
(the date. 

(The date is encoded as follows! 
( TV MM DD 

( cootxxx xxxx xxxxx 

( • <- 16 bits -> e 

(An eg. March 19, 1985 ('031985') will result in the 



3211 

SZIIF5 

5211 C5 

5212 DDES 
52ME5 
5215 DDEl 



52I7DD7EM 

520AD43I 

52KCWC32 

52tF* 

521IDD7EI5 

5213 D63I 
5215 81 

5214 CB27 
5218 47 



5219 0D7EII 
521CD43I 
521E CD1C52 
5221 1F 
S222DD7EI1 
5225 D43I 

5227 81 

5228 C85F 
522A2802 
522C C6C1 
522EIF 
522F IF 
5231 IF 
5231 E4EI 
5233 4F 



5231X7E0Z 
5237 D43I 
5239 CWC52 
523C1F 

523D DD7EI3 
5210 D630 

5212 81 

5213 E41F 
5215 BS 

5214 4F 



5217 DDEl 
5219 CI 
521AF1 
521BC9 



521CC5 
52«E4IF 
521F CB27 

5251 * 

5252 CB27 
5251 CB27 
5254 81 

5257 B7 

5258 CI 

5259 C9 

5211 



11371 
11380 
11390 
Hill 
IM1I 
IH2I 
•M30 
•MM 
•H50 



(following word. 

( 1I1I1I1II111HU = (AA73H • «J537D 

(This results in an unsigned integer. This could allow for 

(a very euick sort on a date field along with the space 

(reduction. 



DTCOMP 



tM7l 



ORG S2IW 

PUSH AF 

PUSH BC 

PUSH IX 

PUSH HL 

POP K 



(Save registers an the stack 



(Place ptr to date string into IX 



HSII 

10511 

11520 

11530 

11511 

11550 

10540 

H57I 

10580 

11590 

H400 

H41I 

10420 

11430 

10410 

00450 

10440 

11470 

11480 

10490 

11700 

11710 

10720 

10730 

00710 

11750 

00740 

00770 

00780 

11790 

10801 

0N1I 

11820 

11830 

11810 

10850 

11840 

11871 

11880 

IR90 

H9II 

10910 

11920 

10930 

•0910 

00951 

11940 

••971 

•0980 

11990 

11110 

mil 

11121 

11130 
11010 
11050 
11040 
01070 
11180 
11090 

inn 

•mi 

•1121 
11131 



(Get year field. 

TT LD A.OX+HO (Get 1st character in the par 

SUB 3tH (Make it an integer 

CALL HUL1I (Multiply by tan 

LD C,A (Save in 'C register 

LD A,(TX5H) (Get second character of date 

SUB 3IH (and neks into an integer 

ADD A,C (add together 

SLA A (Shift into position 

LD H.A (Place year into 'H' register 



(Get Month field. 



mm 



Kit 



LD 

SUB 

CALL 

LD 

LD 

SUB 

ADD 

BIT 

JR 

SET 

RRCA 

RRCA 

RRCA 

AND 

LD 



A, (»+•«) (Get 1st charactar of Month 

3IH (Hake it an integer 

IU.1I (Multiply by ten 

C,A (Save in 'C register 

A,(IX+tlH) (Get 2nd char of with field 

3IH (Change into an integer 

AfC (and add together 

3,A (Check if Month hi order bit set 

Z t hTI (If not - ignore, else 

l,H (Set Hi order bit of Month in 'H' 
(Place 3 least significant bits 
? into 3 hi order bits 

0E0H (Mask off 5 least si« bits 
L,A (And place Month into 'L' reg 



(Get Day field. 

DD LD A.UX+KH) (Get 1st char of day field 

SUB 3IH (and nake it into an integer 

CALL rU.ll (Multiply by II 

LD C,A (Save in 'C register 

LD A,(IX+«3H> (Get 2nd char of day field 

SUB 3fH (Make into in integer 

ADD A,C (and add together 

AND 1FH (Mask off 3 mt sig bits 

OR L (Cortine Month and Date 

LD L,A (Place back into 'L' register 

(The conpressed date is now an integer in 'HL' registers 



FOP IX 

POP BC 

POP AF 
RET 



(Pop saved registers off the 

( stack and return 



NUL1I 



(This is a subroutine to Multiply a number (1-15) by II. 

(The limber to be Multiplied (the Multiplicand) is passed 

(in the 'A' register and the result is returned in the 

('A' register. 

(Save 'BC' register 

(Hake sure Multiplicand is 1-15 

(Multiply by 2 by shifting left 

(Save 2Multiplicend 

(Multiply by 2 again 

(Multiply by 2 again 

(Add 2Multiplicand to product 



PUSH 

AND 

SLA 

LD 

SLA 

SLA 

MX) 



BC 

IFH 

A 

C,A 

A 

A 

A.C 



(The final product is in the 'A' register now. 
OR A (Set flags 

POP BC 

RET 

» 

END DTCOMP 



•10(0 TOTAL ERRORS 
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DO 5231 DTCOMP 5200 
YY 5217 



HI0 



522E HI 



5219 HJL10 32* 



MAZE THSDOS 1.3 TOUR OTStH 
A BASIC program by Patrick Sweetman & Oli " Skarsholt 

[Patrick and Olaf are members of the Chnstchurcn-80 Users 
Group (P.O. Box 4118, Christchurch, Mew Zealand) and this program 
originally appeared in that group's newsletter. As is sometimes the 
case with programs published in NORTHERN BYTES, the 
documentation for this one is in the program's REM statements. By 
the way, to call the phone number in line 50, U.S. readers would dial 
011+6449+817-8698. Remember the time difference, New Zealand is 
18 hours ahead of Eastern Standard Time and 21 hours ahead of 
Pacific Standard Time, and don't forget to call (800) 874-4000 first 
to find out when the lowest rates are in effect! 3 

10 REM OTSTER/BAS 

20 REM 

30 REM BT PATRICK SWEETMAN & OLAF SKARSHOLT, 

40 REM 203A GODLEY ROAD, TITIRANGI, AUCKLAND 7, 

50 REM NEW ZEALAND. PH.(09) 817 8698. 

60 REM 

70 REM 2 OCTOBER 1981 

80 REM 

90 REM 

100 CLSICLEAR 60o:prtnt:print 

110 PRINT "THIS PROGRAMME TAKES A NORMAL TRS-80 III," 

120 PRINT "THSDOS 1.1, 1.2, 1.3, SYSTEM DISK (ALL VERSIONS) " 

130 PRINT "AND CREATES ON IT DIRECTORY ENTRTES" 

140 PRINT "FOR "BOOT', DIRECTORY', AND 'SYSTEMS'" 

150 PRINT TILES ALREADY PRESENT ON THE DISK." 

160 PRINTS PRTNT THEN, FOR EXAMPLE, YOU CAN EDIT" 

170 PRINT "THE DIRECTORY WITH T>EBUG', 'F' FUNCTION," 

180 PRINT "AND THEN, THE SYSTEM IS YOUR OYSTER." 

190 PRINTtlNPUT "ENTER DISK DRIVE NUMBER "SDD* 

200 CLStPRINT "O.K., PLEASE BE PATIENT." 

210 DIM BU»(J>,FC»,X(9>,F*,LL«<18>,LM*<18> 

220 BU»(0)«STRING»(240,32>: BU$(1)-STRING»(32,32) 

230 FOR N«l TO 9! X(N)*256i NEXT N 

240 FC*-STRING*(64,32> 

250 FOR NM TO 18*. READ LLS(N)i FOR X-l TO 4J READ A! LMS(N>« 

LM»<N)+CHR»(A>! NEXT X! NEXT N 

260 FOR N-l TO 63! READ At! A-ASC(Ai>-48! IF A>9 THEN A-A-7 

270 A«A*16! A0"ASC(MID»(A»,2,l»-48: IF A0>9 THEN A0-A0-7 

280 Pt»P» + CHR*(A+A0>! NEXT N 

290 CLS! PRINT "CREATING THE DIRECTORY ENTRIES NOW." 

300 GOTO 510 

310 A«VARFTR(FC*>: A«PEEK(A+l>+PEEK(A+2)*256 

320 X(4)«INT<A/256>! X(5)-A-256»X(4) 

330 FOR A«l TO 7i MID«(P»,A+3,l)-CHRt(X(A»: NEXT A 

340 P»VARPTR(P»>! DEFUSR0-PEEK(P+l>+256*FEEK(P+2)-65536 

350 A=USR<0)! TF MTD»(P»,3,1>=CHR«(0) THEN ER=0! RETURN 

360 ER=ASC(MTDt(Pf ,3,1 )>! PRINT •**••# TRSDOS ERROR CODE "JER 

•" at***" 

370 PRINTtPRINT "PRESS A TO ABORT'STONT - C TO CONTI 

NUE"SA*=" " 

380 AS-INKEYS! IF A»-"C" THEN 390 ELSE IF AtO"A" THEN 380 EL 

SE STOP 

390 CLS! RETURN 

400 DATA STS00.15,00,00,05J)IRECT,18,00,17,06,SYS01,05,00,16,02 

410 DATA SYS02,04,00,16,66,SYS03,03,00,16,i29,SYS04,03,0<MM61 

420 DATA SYS05,08,00,00,163,SYS06,17,00,18,06,SYS07,16,0(V>1,70 

430 DATA SYS08,18,00,19,06, SYS09,15,00,20,05,SYS10,04,00,15,02 

440 DATA 5YS1UO,00,20,164,SYS12,04,00,15,66,5YS13,04,00,15,130 

450 DATA SYS14,02,00,21,97, BASIC f 00,00,00,00,CONVERT,00,00,00,0 



460 DATA 18,OA,00,00,00,00,00,00,00,00,00,00,CD,OB,00,E5 

470 DATA DD,E1,DD,36,F3,00,DD,66,F5,DD,6E,F6,DD,74,23,DD 

480 DATA 75,24,DD,46,F4,DD,56,F7,DD,5E,Fe,DD,66,F9,DD,6E 

490 DATA FA,CD,00,00,C8,CD,OB,00,E5,DD,El,DD,77,CA,OO f C9 

500 A-VARPTR(BU»(0»t MIW(FC»,4,1>«CHR«(PEEK(A+1»: MID»(FC», 

5,1 >»CHRt<PEEK(A+2»: RETURN 

510 FOR X-l TO 16! FC*-LL»(XH*/SYS:"+DD*+STRING*(40,32>: PRIN 

T 6400,FC«r 

520X(l)»0t XQW32! X<3)«68 

530 A"VARFTR(BU*(0)): A«PEEK(A+lHFEEK(A+2)*256 

540 X(6)«IHT<A/256>: X(7)-A-256*X(6) 

550 GOSUB 310! X(2)«40!GOSUB 310 JNEXT X 

560 X(2)-36: GOSUB 310 

570 Km*<FC*,13,2f"XX". MID*(FCs,17,l)-CHR*(17): MID*<FC*,18,1> 

«CHR«(31) 

580 X(2W4! GOSUB 310! GOSUB 3105 C-80 



590 IF MTD»(BU»(0),C,1)-CHR»(0) THEN C-C-l! GOTO 590 

600 FOR CB = 1 TO l+INT<C/5>! GOSUB 500S GOSUB 310 

610 ZX«0: FC R D= TO 45 FOR E= 1 TO 18 

620 IF MID»(BU*<0),48»D+6,LEN(LL*(E)»OLL*(E) THEN 670 

630 IF E*17 OR £=18 THEN MID»(BU»<0),48#D+17,2) - MID«(BU»(0),4 

8»D+ 19,2)5 GOTO 650 

640 MID*<BU»(0),48«D+21,4) - LM*(E) 

650 IF LL*(E>= "DIRECT" THEN MID«(BU*(0),48«D+1,1>»*Z" ELSE MID 

•<BU»(0),48«D+1,1)»"X" 

660 ZX«1! PRINT ©4004J.«(E){" "1 MID$(LL»(E>,l,l>-"«* 

670 NEXT E! NEXT DS IF ZX-0 THEN 690 

680 GOSUB 5005 X(2)-69S GOSUB 310! X(2)-57S GOSUB 310! X(2)-54 

690 NEXT CB 

700 cls: print: print *o.k. all FraisHED"! print 

710 PRINT "THE FILES ARE STORED AS 'INVISD3LE SYSTEM FILE 
S'* 

720 PRINT "WITHOUT PASSWORD PROTECTION. " 
730 PRINT: PRINT "THE -DIRECT/SYS' SHOULD NOT, UNDER ANY" 
740 PRINT "CIRCUMSTANCES BE KILLED, SO THIS FILE" 
750 PRINT "HAS BEEN GIVEN ACCESS LEVEL 2 Q3ENAME, UPDATE, 
ETC.)" 

760 PRINT! PRINT 
770 END ' THAT IS ALL 

FAST FIX FOR MODEL 4 SLOWS 
by Dave Owen, CCS Technical Specialist 

[This article is reprinted from Micro Info Exchange, the 
newsletter of the Cabrillo Computer Society.] 

The Radio Shack Model 4 Computer is advertised to operate at 
a two- or four- megahertz clock rate. Our investigation has 
revealed the truth of this claim. The Tandy specifications do not, 
however, state the fact that the master clock does not always 
"tick". Because of this persistent miss, the machine operates at 
approximately 3.37 MHz - or nearly one-sixth slower than claimed. 

The pre-programmed PAL (programmable array logic in the 
back panel's U3 socket) logically ties the op-code fetch signal (Ml) 
to the crystal oscillator output (*PCLK). The result is that clock 
cycles are suppressed during each op-code fetch on those PALs 
labeled with Radio Shack part number 8075166. A later version PAL 
has reportedly eliminated this design feature. But most of those 
sold in 1983 and earlier do run below specs. 
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This shows component Ml causing PCLK (Primary Computer 
Clock) in U3 to also output erratically, so that the missing pulses 
mean, on balance, slower speed. 

The clock suppressions aren't needed with the Z80A (the 
computer was originally designed to operate with a ZILOG Z800 that 
was never released). If you have this particular PAL, the solution 
is simple! Remove IC chip U3. by prying it up at each end with a 
small screwdriver. With a pair of small pliers, bend pin 7 horizontal 
so it will no longer sit in the socket. Replug this chip back into 
your board. Presto, a 4 MHz operating speed. 

Does this really make a difference? Software, particularly 
the operating system, is "tuned" to certain °P ,r *J™j>JLP" d 
environments. When formatting my 8-inch drives under TRSDOS 6.Z, 
for example, the time required dropped from 8 minutes to just over 2 
minutes. Other operations also work more efficiently, such as 
mathematical calculations. We timed FOR-NEXT loops at 16% 
faster. Try it, you'll like it. And it's free! 



SELF-BOOTING KEWIX3S/8pji*$tmitosA**« fcb* MODEL ♦ 
by Art Rasmussen 

Here it a further modification to the self-booting NEWDOS/80 
system disk article th*t appeared on page 10 of NORTHERN BYTES 
Volume 6, Number 3. The problem with the other version is that in 
order to create a copy of the new system disk you had to do a full 
diskette (type 5) copy. You couldn't do a CBF (type 6) copy. The 
CBF (Copy By E»les) routine copies any user files to the first empty 
sectors it finds on the destination disk and thus the MODELA/III 
file would end up being moved from its proper location on the new 
disk. In order to get NEWDOS to copy the MODELA/III to its 
proper location I renamed the MODELA/III in the actual NEWDOS 
directory and called it SYS22/SYS. I then put the FPDE in the 
fourth slot of the first directory sector dump 17 relative sector 2). 
This way NEWDOS's CBF routine will treat it as a system file and 
during the copy, it will copy it to the same location as it was on the 
original disk. 

PDRIVE setting both drives and 1! 

■n«=A,TD»E,TC-40,SFT«18,TSR«0,GFL«2,DDSL-17,DDGA«2 

STEP 1. 

Make a backup of your NEWDOS disk by typing! 
COPY ,0,1, ,CBF,/SYS,FMT<CR> 

From here on I used the utilities in SUPER UTILITY. Make 
sure you use the N3DR specifier for the configuration table. 

STEP 2. 

If you did not create a system disk as outlined in step one you 
will need to make sure that lumps (relative tracks) 30 through 3* 
are not assigned to any file. The ALLOCATION MAP routine of 
SUPER UTILITY will tell you this. 

The reason for this is that beginning on lump 30, relative 
sector 6 we will create a dummy directory for the MODEL 4P loader. 
This sector corresponds exactly to real track 17, sector which is 
where relative byte 2 on the boot sector says the directory is 
supposed to be. Notice we will NOT move the real directory from 
lump 17. We will also copy the MODELA/III file to the sectors 
immediately following this dummy directory. 

STEP 3. 

Using SUPER UTILITY, zero out lump 30 relative sectors 
6,7,8. Next go to lump 30 relative sector 8 (real track 17 relative 
sector 3) and beginning at relative byte enter the following! 

1000 7C00 004D 4F44 'SIC 4120 2049 494V 
9642 9642 3900 1129 FFFF FFFF FFFF FFFF 

This is the fake FPDE for the MODEL 4F loader. Make sure 
that this modification begins exactly on the lump, sector, and byte 
specified. Note we do not need to read-protect these sectors as if 
they were part of a real directory, nor do we need a HIT sector or a 
GAT sector, the 4P loader doesn't seem to care. 

STEP 4. 

Next I used the FILE LOCATIONS routine of SUPER UTILITY 
to find out where the 57 sectors of the MODELA/III ROM image 
were located on the MODEL 4 disk. (On mine it began on track 36, 
sector 12. If you are copying from the MODELA/III file disk, it 
begins on track sector 4.) 

STEP 5. 

Using the COPY SECTORS routine of SUPER UTILITY copy the 
57 sectors from the MODEL 4 disk to the NEWDOS disk BEGINNING 
at lump 31 relative sector 2 (this corresponds to real track 17 
sector 6). You cannot use the copy file routine of SUPER UTILITY 
or of NEWDOS to copy the file. They will copy it to the first 
available sectors on the destination disk and not to the proper 
location. 

STEP 6. 

Now go to lump 17 relative sector 2. This should be the first 
sector of the real NEWDOS file directory entries (FDE). You should 
see the BOOT/SYS, SYS6/5YS, and SYS14/SYS files listed. Now we 
will construct an FPDE for the MODELA/III file. However, we are 
going to call it SYS22/SYS. Begin modification at relative byte 60 
and change the two rows of zeros to the following (it is very 
important that the FPDE begins at relative byte 60. If the file is in 



another slot, the CBF routine may not treat it as a system file and 
thus copy it to a different location in which case the new disk will 
not boot on the 4P): 

5F20 0000 0053 5953 3232 2020 2053 5953 
9642 9642 4000 1E2C FFFF FFFF FFFF FFFF 

STEP 7. 

Use the REPAIR GAT SECTOR routine of SUPER UTILrTY to 
correct the GAT table. This adjusts the GAT table for the new 
MODELA/III ROM image file and the transferred directory. 
NEWDOS will treat this as one large file. 

Use the REPAIR HIT SECTOR routine of SUPER UTILITY to 
correct the HIT table. This places the HIT code for the new 
SYS22/SYS file in the HIT table. 

You may now reboot the disk by pressing the reset key. You 
do not need to hold any keys down, even if you have just turned the 
4P on, the ROM image will load and NEWDOS will boot. 

Art Rasmussen 
612 West Hillcrest 
Keene, Texas 76059 
Phone (817) 641-8922 

LDOS, TRSDOS 6 AND 1987 - THE WHOLE STORY 

IThis originated with the LSI Customer Service Department, and 
since 1987 is only a couple of years away, I feel that many of you 
might want to know about this now. Please note that certain other 
DOSes use this same method of date storage, and thus will have 
similar problems with date stamping of files starting in 1988!] 

LDOS (and TRSDOS 6) uses a three bit field to store the year 
information for the system and in the disk directory for a particular 
file. The year field therefore has an eight year range, with a base 
offset (currently) of 1980. Thus, dates ranging from January 1, 
1980 to December 31, 1987 can be represented. 

LSI is in the process of developing a series of patches to 
allow a variable base offset other than 1980. These patches will be 
made available to all registered owners when/if they are finished. 
This is anticipated before the end of 1985. If the patches become 
too extensive, or actually require the re-assembly of any part of 
the operating system, they may instead be made part of a new 
release of the LDOS system. This would be 5.1.5, and would be 
available to all registered owners for the normal (10 update fee. 

As far as TRSDOS 6 goes, availability of patches and/or a new 
release of the operating system is up to Radio Shack. If the change 
is made as a series of patches, it is likely that the patches will be 
available here. 

Of course, because the range of dates that can be represented 
can't exceed eight years (remember, only three bits), files marked 
with dates under the "old" date system may show "funny" date 
information (the date will be advanced from its "old" value by 
whatever the change in the offset value is). 

Sincerely, LSI Customer Service Department 

WARNING TO 2400 BAUD MODEM BUYERS 

According to an article in the TATSIG (Toledo Area Tandy 
Special Interest Group) newsletter, the Hayes Smartmodem 2400 is 
not "Hayes compatible", that is, the internal commands recognized 
by this MODEM are different from the previous Hayes standard. In 
fact, at present the Smartmodem 2400 will only operate with Hayes' 
own Smartcom II program. If you need "Hayes compatibility" you 
are advised to make sure that the 2400 baud modem you are 
considering recognizes the Hayes (300/1200 baud) command set. The 
Multimodem 224 (Multi-Tech Systems, Inc., 82 Second Avenue S.E., 
New Brighton, Minnesota 55112) is one that is known to recognize 
the command set of the earlier model Hayes modems, and 
presumably other such 2400 modems are (or will be) available. 

It's nice to know that Tandy isn't the only company that goes 
around shooting themselves in the foot. I'll bet this "non-Hayes- 
compatible" Hayes modem turns out to be a major blunder for Hayes, 
and will probably cost them a good many sales. Not only that, but in 
the end they'll probably wind up having to retrofit their stock of 
Smartmodem 2400's to recognize the original Hayes command set. 
Perhaps the folks at IBM (specifically the PC Jr. people) will be 
able to offer a little advice, or at least sympathy, when that 
happens! 
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MICROSOFT BASIC AMD FLOATING-POINT NUMBERS 
by Jack Decker 

[This article originally appeared in NORTHERN BYTES 
Volume 2, Number 8 (which is no longer available, so please don't 
write and ask for a copy).] 

I firmly believe that there are thousands of microcomputers 
that are cranking out reports and data that is incorrect. Only 
slightly incorrect, mind you, not so much that you'd ever notice in 
many cases, but still incorrect. If you've ever wondered why things 
just don't seem to add up properly, you may have been bitten by the 
floating-point BUG in Microsoft (and many other) versions of 
BASIC. To see the BUG in action, try typing in this one-line 
program, then RUN itl 

10 A-A+.01! PRINT A, A«100, INT(A«100)J GOTO 10 
(Note that if you mr* not using Microsoft BASIC, the colon 
separator may not be allowed. Just make a three-line program with 
one statement per line in that case.) If you are using the ROM 
BASIC of a TRS-80 Model I or m (or the Model III mode of a Model 
4), your display will start out something like this (use the SHIFT-9 
key to "freeze" the display)' 



.6699999999999999 



67 



66 
67 



.01 


1 




1 


.02 


2 




2 


.03 


3 




3 


• 


♦ 




« 


» 


♦ 




. 


.09 


9 




9 


.1 


10 




9 


.11 


11 




10 


.12 


12 




11 


.13 

* 


13 

• 




13 


.33 


* 

33 




33 


.31 


31 




33 


.35 


35 

♦ 




31 

* 


♦ 

.83 


e 

83 




• 

82 


.839999 


83. 


9999 


83 


.B5 


81. 


9999 


81 


,859999 


85. 


9999 


85 


.87 


86. 


9999 


86 


.879999 


87. 


9999 


87 


.889999 

• 


88. 

« 


9999 


88 

* 


,999999 


99. 


9999 


• 

99 


1.01 


101 




100 


1.02 

• 


102 

♦ 




101 

* 


1.12 


112 




111 


1.13 


113 




112 


1.11 


111 




111 


1.13 


115 




115 



The display starts out as you'd expect, everything going along 
fine until you reach a certain point (A=.l in this case). Here we 
prove that INT(10)«9?! This error with the INT function lasts 
through a few iterations, then disappears for a while. Next, we 
prove that the computer can't even add properly (since when does 
.83 + .01 ■ .839999?). We then go through a couple of strange 
iterations where the computer can't decide how to add .01, or how to 
multiply the result by 100. The INT function seems to settle into a 
pattern. As our value of A tops 1, the INT function seems to 
always deliver a value that is low by 1. This continues until 
A-4.14. Then, suddenly, all values are correct! Keep running the 
program, however, and you'll find that this happy state doesn't last. 
Seems the computer can't even add properly, much less multiply. 

Now, you might be thinking that using double precision 
numbers will solve the problem. If you're using a TRS-80, add line 

s: 

5 DEFDBL A 
to force A to be a double precision variable. Also, change ".01" in 
line 10 to ".01D" to force the constant to be evaluated as double 
precision. The problem won't show up as soon, but eventually you'll 



Wait, why does the INT function and the multiplication by 100 
still work? Because 100 is still a single precision constant, thus 
forcing the result to single precision. Change both occurrences of 
"100" to MOOD" in line 10. Same result? Tes - but watch the next 
two lines! 



,6799999999999999 
.6899999999999999 



68 
68,99999999999999 



68 
69 
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The INT function still doesn't work as expected because all 
intrinsic functions on the TRS-80 are limited to single precision 
accuracy. Thus the INT function, in this case, "rounds up" (which is 
something the BASIC reference manual says will never happen)! 

As you may have guessed, this problem can give strange 
results in computations involving decimals, especially dollars and 
cents. Why the problem? Because certain numbers that can be 
represented exactly in decimal (such as .01) cannot be exactly 
represented in binary, or else the number of binary digits Ojits) 
required for exact binary representation is more than what is 
available for storage of the number. It would take a lot more space 
to give a better explanation (see pages 20-25 of TRS-80 ROM 
ROUTINES DOCUMENTED for a more complete discussion of how 
numbers are internally stored in the memory of the TRS-80). 

How do you avoid this problem, if you are doing computations 
that require extreme accuracy? Here's a few tips! 

1 ) If you know how to program in assembly language, you could 
try writing your own routines. Some microprocessors (including the 
Z-80 used in the TRS-80) will support Binary-Coded Decimal (BCD) 
arithmetic. The tradeoff here is that more memory is required to 
support a given precision number. For instance, a single precision 
number of six digits can be stored in binary in four bytes. "So 
what?", you might say, since six digits can be stored in three bytes 
in BCD. But, those three bytes would not include information as to 
the sign of the number, the location of the decimal point, etc., nor 
would it allow the overflow into scientific notation allowed by the 
four-byte binary scheme. Nevertheless, one could wish for the 
inclusion of BCD arithmetic in a future release of BASIC, since 
accuracy is required in many applications, and the cost in terms of 
memory would not be that great (perhaps as little as one or two 
bytes more per variable). 

2) Do all computations using integers, and carry all variables 
as integers. Note that I do not mean integer precision , but rather 
numbers of anx precision that do not have a fractional part (no 
digits to the right of the decimal point). The reason this works is 
that any whole number can be represented exactly in binary - only 
fractional parts will get us into trouble. As an example! Suppose 
we are working with dollars and cents. We could use a statement 
such as this! 

10 INPUT "ENTER AMOUNT'iX! X=INT(X*100+.1> 
If the user entered, say, 1.49, it would be carried in the computer as 
149 (think of it as 149 cents). Any computations done on this 
number would be accurate as long as whole numbers are used. The 
".1" in the above line is a "fudge factor", it's there to make sure 
that the INT function returns the proper value. When the time 
comes to print the result (and ONLY then), we use a statement of 
the form! 

1000 PRINT USING "$♦##.##"! X/100 
Note that numbers stored on disk, etc. should still be in their 
"multiplied by 100" format. 

3) Here are some tricks to "clean up" numbers that may not be 
stored accurately (for example, when printing the variable returns 
the proper amount but printing the INT(variable) does not)! 

A. X«VAL<STR*(X)> (converts to a string & back) 

B. X-INT(X«100+.1>/100 (works for dollars and cents, or 
change "100" to desired value as required) 

C. X#=.01D or X#*.01# (always indicate a constant as 
double precision if it has a fractional part and is being used with 
double precision variables) 

4) Don't expect exact results from the intrinsic functions 
(exponents, squareroots, logarithms, trigonometric functions, etc.). 
If you need high precision (or if using double precision variables 
and you want double precision results), you must write your own 
routines in BASIC or machine language to perform these functions. 
An article in the August, 1979 issue of CREATIVE COMPUTING 
tells how to write these functions in BASIC for extended precision. 

Now that you know about this problem, go fix that 
bookkeeping program you wrote, that always seems to be a few 
cents off in its results (and you never knew why)... 



SETDATE - THE MODEL 4 VERSION 

by Jack Decker 

Many TRS-80 computer users have given up setting the date 
when they power up their system, and no, they haven't bought one of 
those battery-powered dock/calendar boards. Instead, they use 
SETDATE/CMD, a program for the TRS-80 Models I and III, which 
first appeared in NORTHERN BYTES Volume 5 Number 2 (with bugs, 
unfortunately, which were corrected in later versions) and on TAS 
Public Domain Library Disk #00 1. 

Unfortunately, the original version of SETDATE did not work 
in the Model 4 mode, So, here is SETDATE 6.0, a program which 
works under both TRSDOS b and DOSPLUS b. Please refer to the 
original SETDATE article and to the comments in the source code 
listing below for further information on the operation of SETDATE. 

In order for SETDATE to be useful, the DATE prompt that you 
get at boot-up time must be disabled. Under TRSDOS 6, this is done 
by issuing a command of the form! 

SYSTEM (DATE=NO) 
Unfortunately, this has an undesirable side effect. You see, when 
you boot TRSDOS 6 with the DATE prompt is enabled [SYSTEM 
(DATE=YES)3 and there is already a valid date in memory, the user 
is not prompted to set the date, and the date already in memory is 
used. BUT, if you have the DATE prompt disabled [SYSTEM 
(DATE = NO)3 and you reboot the computer, TRSDOS 6 will 
(apparently in a fit of spite because you bypassed the DATE 
routine) erase the date from memory, even if it's valid' SETDATE is 
written in such a way that if it finds an already valid date in 
memory when it is executed, it will simply exit to DOS without 
prompting the user to reset the date again (unless the ! argument is 
used). But, because TRSDOS b has already deleted the date from 
memory (a "feature" I do not particularly appreciate), SETDATE will 
never find that already valid date after a reboot. Obviously, a 
patch to TRSDOS 6 is needed, to keep it from erasing the date in 
memory at reboot time. 

So, here's the patch. You can apply the three patch lines 
directly from the keyboard, or you can put the following lines into a 
patch file and execute using the command: DO SETDATE/FIX 

. SETDATE/FIX - 06/19/85 by Jack Decker 
. (with a little help from Hardin Brothers) 

. Optional patch to SYSO/SYS on TRSDOS b,2 

. This patch prevents SYSO/SYS from erasing a valid 
. date from memory after a system reboot, when the 
. SYSTEM (DATE=NO) command has been used. Note that 
. this patch may also permit an invalid date to 
. remain in memory after a reboot. 

PATCH SYSO/SYS.LSIDOS <DOD,2C=00!F0D,2C=36> 

PATCH SYSO/SYS.LSIDOS (D0D,30=00!F0D,30=3t,) 

PATCH SYS0/SYS.LSIDOS (D0D,34=00:F0D,34=36) 

* 

. End of patch 

Thanks to Hardin Brothers for passing along the necessary 
information for me to create this patch. You might be interested in 
a few of Hardin's comments! 

"A pseudo-code [for the operation of the date-setting code in 
TRSDOS 6.21 works something like this! 

Collect the current contents of the date area and erase any 
garbage that may be there [this erasure is what 
the above patch eliminates]. 

If date-prompt = NO, jump to time prompt. 

Store current date contents in the input buffer. 

Jump to date-parsing routine. 

Input date from user. 

Parse input, If not valid date, jump back to input. 

Store valid date in date area and on screen. 

"Now, the problem with inhibiting the erasure is that it would 
be inhibited always, including the first IPL of a session, and so any 
random garbage would be accepted as a valid date,.." 

What this all means is that if you're NOT using SETDATE, you 
probably won't want to apply the above patches to your copy of 
TRSDOS 6. But there is no problem if you do use SETDATE, because 
it contains its own check for an invalid date in memory, and will ask 
you to reset the date if it finds one. 



The first time you execute the Model 4 version of SETDATE, 
you may get a "File Already Open" error message. If that happens, 
go to DOS READY and type: 

RESET SETDATE/CMD 
Once you've done this, you should have no further problems. 

Even though the name of the source code is SETDATE6/ASM -' 
the program must still be assembled using the filenam. 
SETDATE/CMD. If you use any other filename, it won't work! The 
normal use of this program is as part of the AUTO command, to have 
it execute automatically when you boot up your system (see the 
source code comments for more information). 

Those of you that are long-time readers of NORTHERN BYTES 
will recall that the original SETDATE/CMD program has gone 
through several permutations. This means two things to you! First, 
check future issues of NORTHERN BYTES (if any) for bug reports or 
code improvements. Second, perhaps someday I may convert other 
programs of the SETDATE series to work under TRSDOS 6. I have 
already attempted to convert SD/CMD (that's the one that also 
writes the date to a text file called DATE/TXT, which can then be 
imbedded into your word-processor files so that your form letters 
are always printed using today's date). Unfortunately, I have so 
far been unsuccessful in the conversion, because I keep getting an 
"Illegal logical file number" error (!) and I haven't yet figured out 
why (if any of you TRSDOS 6 hackers would like to examine my 
source code and tell me what I'm doing wrong, I'd be happy to pass 
along a copy). 

As for the overseas versions that write the date backwards (a 
relative term in this case), those may be a bit more difficult, It 
turns out that there is an "international" version of TRSDOS b.2 
that stores the date internally in a different format, and I don't 
have a copy of that version (and you can't get it here in the U.S.A., 
obviously). So, without a copy of vhe "international" version to run 
tests on, I really can't convert the "international" versions of 
SETDATE very well. Perhaps one of our overseas readers can offer 
some assistance here. In case you're wondering, here's one way you 
can tell which version you have* With SYSO/SYS resident in 
memory, if the byte at 1EEAH is 1BH (a DEC DE instruction) it's the 
U,S. version, but if it's 13H (INC DE) it's the "international" 
version. 

The source code follows, and again, please remember that it " 
MUST be assembled using the filename SETDATE/CMD!!! 



•0100 Joan SETDATE6/ASM - Copyright 1985 by Jack Decker 

WHO [Version 6.0 for the Hodel 4 - creation date 7/6/85. 

00120 

00130 (This program elininates the need to type in the date 

00140 [Kanually each tine you power-up your computer (assuning 

00150 [your DOS can be forced to bs>ass the "DATE" pronpt when 



IO160 
00170 
O0180 
00190 
00200 
00210 
00220 



lit is booted up). 



[This progran MUST be assembled using the filename 
["SETDATE/CKP. Nornally, it is used by placing the 
[filenane as part of a DOS "AUTO" comand. You nay AUTO 
[a second progran along with SETDATE by placing filenane 
[of the second progran in sane AUTO cowund line, 

00230 [innediately following the SETDATE connand. for exanple! 

00240 

00250 i SETDATE PR0GRAM2 

00260 

00270 

00280 

00270 

0030 

00310 

00320 

00330 

00310 

00350 

00360 

00370 

00380 

00390 

00400 



[would first execute SETDATE, then PR0GRAN2, 

|If there appears to be a valid date already stored in 
[nenory (as night happen if the DOS is re-booted without 
[first turning off the power to the systen), SETDATE will 
[sinply clear the screen and exit. However, you can 
[force SETDATE to execute by placing a space and 
iexclanation point immediately following the filename! 



SETDATE 
SETDATE 



PROGRAfE 



[when SETDATE executes, it will display the date used the 
Ilast tine SETDATE was executed. You nay advance or 



00410 {backspace the date using the arrow keys. Hwn the 



00420 
00430 
00440 
00450 
00460 
00470 
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{correct date is displayed, sinply press the ENTER key, 
[which will store the date in nenory and also within the 
[SETDATE progran itself, for use the next tine SETDATE 
[is executed. 

[Questions or consents MUST be accompanied by a self- 





11481 {addressed stewed envelope if you live in the U.S.A. or 


3*88 F4 11140 DEFB 't'*81H 




U490 {Canada (Canadian postage is 


O.K.) and wish a reply. 


3189 53 11150 SEP DEFH 'Septette' 




N511 








65 71 74 65 60 42 65 




M51I ; 




Jack Decker 




3191 F2 11161 DEFB 'r '♦«* 




10520 ; 




1814 Hest 18th Street Lot 1 155 


3172 4F 11170 OCT DEFH 'Ortobe' 




11530 ; 




Sevlt St*. Horie, Mdugen 19783 


63 74 «F 62 65 




11540 








3IVI F2 11181 DEFB VtttH 




M95I 








3197 4E 11171 NOV DEFH 'Novewee' 


3101 


NS61 
M571 


OK 


3W8H 


MUST end with OOP 


4F 74 65 40 62 65 
3IMF2 11211 DEFB 'r'*M 




H98I {String and drt* storage m 


> used by erograe 


3M144 11210 DEC DEFH T*c***' 




M37t 








45 63 65 60 62 45 


3H12D3I 


I*** TABLE 


OEFH 


SW 


{Table of string pointer* 


38A8F2 11221 DEFB 'r'««H 


3112 3331 


11611 


DEFH 


MM 


[ point to strings 


3M9 1C 11230 HSC DEFB 1CH itt* will hone cursor 


3M4 393I 


It62t 


DEFV 


TUE 


f containing day* of 


3*AA IF 11240 DEFB 1FH flffl will clear (crean 


3106 4131 


M630 


DEFH 


NED 


f enBT ffB^e^N. 


3IAB OF I1Z50 DEFB IFH MFH turns off cursor 


uwsirce 


N641 


DEFH 


TO 




3MC 1A 11261 DEFB 1AH {1AH noves down one line 


3MA 5131 


1*651 


DEFH 


TO 




3*A0 11 11270 DEFB iMt JttM activates rev, video 


3HC5731 




DEFH 


SAT 




30AE51 11280 DEFH 'Please set correct date:' 


3ME3F3I 


0*671 


DEFH 


JAN 


{Table of string pointer* 


4C45 61734521734S74 21634F72724543 


3111 6630 


N681 


DEFH 


FEB 


{ point to strings 


74 21 64 61 74 65 3A 


3112 6E30 


11490 


DEFV 


MAR 


[ containing norths of 


30C4 11 11290 DEFB 11H {11H deselects rev. video 


31117338 


N711 


DEFH 


APR 


i theyeer 


3IC7 ID 11311 DEFB I0H 


3116 7831 


01710 


DEFH 


HAY 




3C8 1A 01310 DEFB 1AH 


3118 7B38 


M72I 


DEFH 


JUH 




3K7 1A 11320 DEFB 1AM 


3tlA 7F3I 


M731 


DEFH 


JUL 




3KA1A 11330 DEFB 1AM 


3I1C 8339 


N741 


DEFH 


AUC 




3KB 50 11341 DEFH 'Please press one of the following key*:' 


3I1E 8931 


M751 


DEFH 


SEP 




6C 65 61 73 65 21 70 72-65 73 73 21 4F 4E 45 21 


3121 9231 


M761 


DEFH 


OCT 




4F442174 6B6521666F4C6C4F77474E47 


3122 7931 


10771 


DEFH 


NOV 




21 66 65 77 73 3A 


3121 MM 


N781 


DEFH 


DEC 




30F2 ID 11350 DEFB IOH 


3126 FE 


1*771 HARKER 


DEF8 


0FEH 


[Stert dite storage are* 


3IF3 X 01360 DEFH '<ENTER> if dite is correct' 


3127 55 


MB*8DATSTR 


DEFB 


85D 


{Year storage 


454E5445523E2047442I44 6174 452147 


3128 81 


10810 


DEFB 


10 


{Day storage 


73 2I636F72726563 74 


3129 07 

3I2A (1 


•082C 
11830 


DEFB 
DEFB 


70 
10 


{Month storage 
{Dm of Meek storage 


3180 0D 01370 DEFB 0OH 

310EX 11380 DEFH '<BNEAK> to exit without setting date' 


302B 6C(7 


00840 CMTURY 


OEFH 


17MD 


{Century storage 


42 52 45 11* X 20 71 6F 21 65 78 4? 71 21 77 


3I2D53 


11851 an 


DEFH 


'Sunda' 


{Strings containing days 


69 74 66 6F 75 74 20 73 65 74 71 69 4E 47 21 44 


75 6E » a 








61 74 65 


3(32 F9 


11860 


DEFB 


'y'+BW 


{ of neck 


3132 R) 11390 DEFB IOH 


3133 « 


11871 KM 


DEFH 


'Honda' 




3133 X 01400 DEFH '<up-arrow> or <righV*rrow> to advance 


6F 6E 44 61 








oste' 


3038 F9 

383? 54 


10880 


DEFB 


'y'*0H 
'Tuesda' 




75 70 2D6172726F773E206F72 2IX72 69 


11890 Tut 


DEFH 




67 48 74 2D 61 72 72 6F 77 3E 20 74 6F 2! 61 44 


75 65 73 64 61 








76 61 6E 63 65 20 64 61 74 65 


383F F9 


10900 


DEFB 


'y'*80H 




315E 0D 01410 DEFB 0DH 


3140 57 


01910 NED 


DEFH 


'HednesoV 




315F X 01420 DEFH '<dourr*rroM> or <left-arrow> to backup 


65 64 6E 65 73 64 61 








date' 


3048 F9 


01920 


DEFB 


V+8IH 




616F776E2DA172726F77X20 6F7220X 


3149 54 


11930 IHJ 


DEFH 


'Thurso*' 




6C 65 66 74 2D 41 72 72 6F 77 X 20 74 4f 20 42 


68 75 72 73 64 61 








61 63 66 75 70 21 64 61 71 65 


3150 F9 


M740 


DEFB 


•y'4«0H 




318A ID 014J3D DEFB IOH 


3151 46 


00750 FRI 


DEFH 


'Frida' 




318B X 01440 DEFH '<SHIFD plus arrow ken to change date at 


72 67 64 61 








high speed' 


3156 F9 


11960 


DEFB 


'y'*80H 




5348194654X20 70 6C757320 6172724F 


3157 53 


11771 SAT 


OEFH 


'Saturda' 




77 20 4B 45 79 20 74 6F 20 63 68 61 4£ 47 45 20 


61 74 75 72 64 61 








64 61 74 65 20 61 74 20 68 69 67 48 20 73 70 45 


305EF9 


10980 


DEFB 


'«'«« 




65 64 


305F4A 


M978 JAN 


DEFH 


Manuir' 


{Strings containing 


31BE ID 01450 DEFB IOH 


61 6E 75 61 72 








31BF 1A 11140 DEFB 1AM 


3165 F9 


lino 


DEFB 


V+81H 


{ norths of <jeer 


31CB 1A 01170 DEFB 1AH 


3166 46 


11111 FEB 


DEFH 


•Februar' 




31C1 1A 11180 DEFB 1AH 


65 62 72 75 61 72 








31C2 1A 11190 DEFB 1AH 


3I6DF9 


11120 


DEFB 


'y'*IH 




31C3 1A 11500 DEFB 1AH 


306E4O 


11030 MM) 


DEFH 


'Hire' 




31C1 S3 11511 DEFH 'SETDATE version 4.1 is a public dowin 


61 72 63 








progran by Jack Decker.' 


3172 E8 


11141 


DEFB 


'h'48IH 




4551444151152176 457273474F6E2136 


3173 41 


11150 APR 


DEFH 


'Apri' 




2E31206973 2I61217I75424C49 432I61 


70 72 61 


) 








6F604167 4£207tl724T477241oD2l4277 


3077 EC 


11160 


DEFB 


'i'-»eiH 




2I1A41636B214445634B45722E 


3178 4D 


11171 HAY 


DEFH 


'He' 




3212 10 11521 DEFB BH 


61 










3213 51 H530 DEFH Tlaced in the public etowin courtesy of 


3I7AF9 


UNO 


DEFB 


'a'*eiH 




NORTHERN BYTES, the newsletter for' 


307B4A 


11070 JW 


DEFH 


'Jun' 




6C414345642167 4EZ0 74 4845217t7542 


75 6E 










6C67 632I646F6D61674E2I434F7572 74 


3I7EE5 


Hill 


DEFB 


'e'*80H 




6573772I6F6620CT52511B1552«2I 


307F4A 


Hill JU. 


DEFH 


'Jul' 




4257511553X20 716865 2I4E4577734C 


75 6C 










45 74 74 65 72 20 46 «F 72 


3WZF9 


11121 


DEFB 


'y'*8IH 




3240 ID 11540 DEFB IOH 


3183 41 


11130 AUG 


DEFH 


'Augus' 




324E 6F 11550 DEFH 'owners and user* of the Tm-H Hodel* It 


75 67 75 73 








ID, 4 end IP.' 
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776E457273 20 41AE6120 7573457273 20 

6F66 20 7146A5 20 5152532D3B30 20 104F 

M454C732(*t2C2(1919*?2C203120 61 

6E 41 20 31 M 2E 
3285 DD (1560 XF8 KM 

3284 IA (1570 DEFB 1AH 

3287 14 (1580 DEFH 'For information on haw you nay obtain 

current or beck issues of WRTHERN BYTES/ 

4F 72 20 49 4E U IF 72 At) 41 71 4? AF £ 20 AF 

6E2048AF772(7?AF752(AD41792(AF42 

71 41 49 AE 20 A3 75 72 72 45 AE 7* 2( AF 72 20 

A2A1A36B2(69 737375A5732(AFA4 20* 

*5251181552«2(12595H5532C 
32D4 0D (1590 DEFB (DH 

32D7 70 (1400 DEFN 'please contact Tht Alternate Source, 7(1 
North Pennsylvania Avenue/ 

4C 45 61 73 45 20 43 4F 4E 71 41 A3 71 20 51 48 

45 20 11 AC 71 45 72 4E 61 74 45 20 S3 AF 75 72 

63652C20 3730312(«AF72 7148 20 5065 

4E AE 73 79 AC 74 41 4E 49 41 20 11 76 45 A£ 75 

45 2C 
331A 00 (1410 DEFB (DH 

331B 1C (1420 DEFN 'Lansing, Michigan 16916 (U.S.A.) or 

telephone (517) 182-6270.' 

41 4E 73 49 AE 67 2C 2( « 49 43 68 69 67 41 6E 

2(313B3930342B28552E532E112E29 20 

AF7220 71A54C45 70 484F4E45 20 2835 31 

3729 20 313B322D383237 30 2E 



3358 1C 


(1630 


DEFB 


io 


tlCH will hone cursor 


3359 10 


(1610 


DEFB 


1(H 


JRe-enable reverse video 


335A 11 


(1450 


DEFB 


11H 


i but keep de-activated 


335B 1A 


(1460 


DEFB 


IAN 


J1AH noves down one line 


333C 1A 


(1470 


DEFB 


1AH 




335D 9A 


(1480 


DEFB 


1AH+80H 




335E IE 


01490 ENDYR 


DEFB 


1EH 


ilEH clears to line end 


335F 9D 


(17(0 


DEFB 


1DH+80H 


J1DH noves to line start 


3360 1C 


(1710 OS 


DEFB 


1CH 


!1CH will hone cursor 


3361 9F 


01720 


DEFB 


1FH+80H 


!1FH will clear screen 


3342 « 


(1730 DATE 


DEFH 


'DATE' 


[Used to execute DOS DATE 


11 51 15 








3366 00 


(1710 
(1750 


DEFB 


(DH 


! comand 




(1740 {Start of actual nschine-language progran 




01770 








3367 7E 


01780 START 


LD 


A,(HL> 


JCet ergunent (!) if ana 


3368 D621 


01790 


SUB 


'1 ' 


{Is it exclanation point 


33AA CCFE31 


01800 


CALL 


Z,SKPSPC 


(Bunp HL past excl. point 


3360 112836 


(1810 


ID 


DE.CHDBFR 


(Temporary connand buffer 


3370 115000 


(1820 


LD 


BC.BOO 


JNunber of bytes to nove 


3373 EOBO 


(1830 


LD1R 




JHove rest of comand In 


3375 B7 


(1810 


OR 


A 


{Re-test for ! 


3376 281A 


(1850 


JR 


Z.USEPGH 


(Skip date test if ! used 


3378 217836 


(1860 


LD 


HL.NUHBLF 


{Point to dumy buffer 


337B 3E12 


(1870 


LD 


A,12H 


{Get date storage area 


337D EF 


01880 


RST 


2BH 




337E 1A 


(1890 


LD 


A,(DE) 


(Get year fron nenory 


337F FE61 


(1900 


CP 


1000 


tls it in range 00-99? 


3381 300F 


01910 


JR 


NCUSEPGM 


{Co if invalid year 


3383 13 


(1920 


DC 


DE 


iPoint to day in nenory 


3381 1A 


(1930 


LD 


A,(DE) 


{Get day fron nenory 


3385 3D 


(1910 


DEC 


A 


{Adjust valid to - 3D 


3386 FE1F 


(1950 


CP 


310 


{Is day 1 - 31 in nenory? 


3388 3008 


01960 


JR 


NC.USEPGH 


JGo if invalid nonth 


338A 13 


(1970 


DC 


DE 


(Point to nonth in nenory 


3386 1A 


(I960 


LD 


A,(OE) 


{Get nonth fron nenory 


338C X 


01990 


DEC 


A 


{Adjust valid to - 11 


3380 FE0C 


02(00 


CP 


12D 


lis nonth 1 - 12 in nen? 


338F DA2E31 


(2010 


JP 


CEXIT2 


tCo if nenory date valid 


3372 21A930 


(2020USEPGH 


LD 


HL.rBC 


(Point to nessage 


3395 CDB731 


02030 


CALL 


DSPHSG 


{Display nessage 


3398 (12A30 


(2010RESTRT 


LD 


BC»DATSTR+3 


(Point to day of wk byte 


339B OA 


(2(50 


LD 


A,(BC) 


JGet day of week (0 - 6) 


339CCDAF31 


(2060 


CALL 


PRTSTR 


(Print day of week string 


339FCDM34 


(2(70 


CAU 


PRTCDM 


(Print coma and space 


33A2 08 


(2(80 


DEC 


BC 


JPoint to nonth byte 


33A3 IA 


(2090 


LD 


A,(BC) 


[Get nonth (1 - 12) 


33A1 C606 


(2100 


ADD 


A,6 


(Offset for string table 


33A6 CDAF31 


02110 


CALL 


PRTSTR 


{Print nonth string 


33A9 CDD931 


(2120 


CALL 


PRTSPC 


{Print space character 


33AC OB 


02130 


DEC 


BC 


{Point to day byte 


33AD 0A 


(2110 


LD 


A,(BC) 


JGet day (1 - 31) 
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33AE4F 


(2150 


LD 


L,A 


{Put day in L 




33AF2A00 


(2140 


LD 


H.( 


;HL»day 




33B1 C5 


(2170 


PUSH 


BC 


{Save date storage pntr 




33B2 CDC331 


(2180 


CALL 


PRTNUH 


{Print day 




33B5C1 


(2190 


POP 


BC 


{Restore date storage ptr 




33B6 C0D131 


(2200 


CALL 


PRTCOM 


{Print coma and space 




33B9 0B 


(2210 


DEC 


BC 


{Point to year byte 




33BA OA 


(2220 


LD 


A,(BC) 


{Get year (( - 99) 




33BB1F 


02230 


LD 


CA 


{Put year in C 




33BC (600 


02210 


LD 


B,( 


{BC « last 2 digits year 




33BE2AZB30 


(2250 


LD 


rL((CNTURY) 


{Get century offset 




33BE 2A2B30 


(2250 


LD 


HL,(CNTURY) 


{Get century offset 




3X1 09 


(2260 


ADD 


HL.BC 


{HL = Year (all 1 digits) 




33C2 CDC531 


02270 


CALL 


PRTNUH 


{Print year 




33C5 215E33 


(2280 


LD 


HL.ENDYR 


{Point to ctrl chr string 




33C8 COB731 


02290 


CALL 


DSPHSG 


{Output it to video 




33CB 3A0735 


02300 


LD 


A,(CFLAG) 


{Get shifted char flag 




33CEB7 


02310 


OR 


A 


{Test for zero byte 




33CF 2808 


02320 


JR 


Z,GETKEY 


{If shifted char 




3301 010080 


02330 


LD 


8C800OH 


{Delay anount 




3301 0B 


02310 DLY 


DEC 


BC 


{Decrement delay count 




3305 78 


(2350 


LD 


A,B 


{Reached zero? 




33D6B1 


02360 


OR 


C 






3307 20FB 


02370 


JR 


NZ.DLY 


{If not zero yet 




3X9 3E0B 


02380 GETKEY LD 


A.8H 


{Get keystroke if any 




33DBEF 


02390 


RST 


28H 






3XC 20FB 


(2100 


JR 


KZ,GETKEY 


{If no key was pressed 




3XEFE80 


(2110 


CP 


80H 


{Has it the BREAK key? 




33E0 2816 


02120 


JR 


2,EXn 


{Exit if BREAK 




33E2FE0D 


02130 


CP 


(OH 


{Has it the ENTER key? 




33E1 2D5B 


02110 


JR 


NZ(N0TCR 


{Go if not ENTER 




33E6 217836 


02150 


LD 


HL.NUHBUF 


{Point to dumy buffer 




33E9 3E12 


(2160 


LD 


A.12H 


{Get date storage area 




33EBEF 


(2170 


RST 


28H 






33EC 212730 


(2180 


LD 


HL.DATSTR 


{Point to progran date 




33EFE5 


02190 


PUSH 


HL 


{Save progran date pntr 




33F0 010300 


(2500 


LD 


BC,3 


JNunber of bytes to nove 




33F3EDB0 


02510 


LDIR 




{Hove fron progran to nm 




33F5 0600 


02520 


LD 


6,( 


{Logical Record Lngth*254 




33F7 11(835 


(2530 


LD 


DE(FCB 


{File Control Block pntr 




33FA 212835 


02510 


LD 


HL(FILBUF 


{File I/O Buffer pntr 




33FD 3E3B 


(2550 


LD 


n» 3BH 


{DOS OPEN routine 




33FF EF 


02560 


RST 


28H 






3100 2032 


(2570 


JR 


NZ, ERREXT 


{Go if error 




3102 3E13 


(2580 


LD 


A,13H 


{READ sector ( to buffer 




3101 EF 


(2590 


RST 


28H 






3105 202D 


(24(0 


JR 


NZ(ERREXT 


{Go if error 




3107 El 


(2610 


POP 


HL 


{Get progran date pointer 




3108 D5 


(2420 


PUSH 


DE 


{Save FCB pointer 




31(9 115235 


(2630 


LD 


DE.NARKER-TABLE+WILBUF 






(2410 JAbove instruction points DE to first location in sector 






(2450 {zero 


of disk file that can possibly contain DARKER byte 




3MC IA 


(2440 FhDDAT 


LD 


A,(DE) 


{Get byte frn disk sector 




MOD 13 


(2470 


DC 


DE 


{Bunp pointer to next loc 




310E FEFE 


(2480 


CP 


(FEH 


{MARKER byte found? 




3110 20FA 


(2690 


JR 


HZ.FNDDAT 


{Try again if not 




3112 01(100 


(27(0 


LD 


BC,1 


{Hove 1 bytes frn progrsn 




3115 EDB0 


(2710 


LDIR 




{ storage to disk sector 




3117 Dl 


(2720 


POP 


DE 


{Restore FCB pointer 




3118 3EH 


(2730 


LD 


ntTwi 


{Reset to sector aero 




311AEF 


12710 


RST 


28H 






M1B 2017 


(2750 


JR 


K2(ERREXT 


{Co if error 




311D 3E19 


(2760 


LD 


A.19H 


{Hrite sector back to dsk 




311FEF 


(2770 


RST 


28H 






312( 2012 


(2780 


JR 


NZ(ERREXT 


{Go if error 






(2790 {Do NOT ettewt to CLOSE file after above procedure!! 






12800 {It is 


not necessary, and will truncate file if you do! 




3122 216233 


(2810 


LD 


HL.DATE 


{Point to "DATE" string 




3125 3E19 


12820 


LD 


A.19H 


{Execute DOS DATE comand 




3127 EF 


12830 


RST 


28H 


{ to reset day bytes 




3128 216033 


(2810 EXIT 


LD 


HL,as 


{Point to clr screen mg 




3428C06731 


(2850 


CALL 


DSPHSG 


{Display nessage 




312E 212834 


(2860 EXTT2 


LD 


HL.CHDBFR 


{Point to new comand bfr 




3131 3E18 


12870 


LD 


A.18H 


{Execute next DOS connand 




3133 EF 


(2880 


RST 


28H 


{ (if any) and exit 




3131 F410 


02890 ERREXT 


OR 


10H 


{Display nornal err nsg 




3134 F5 


(2900 


PUSH 


AF 


{Save error nunber 




3137 (E1F 


(2910 


LD 


C1FH 


{lFTKlr to end of screen 




3139 3E(2 


(2920 


LD 


A(2H 


{Output byte to video 




3136 EF 


(2930 


RST 


28H 






31XF1 


(2910 


POP 


AF 


{Restore error code 





3ix * 


12950 


LD 


C,A 


(Error nunber in C 


3*8 B7 


(3740 




OR 


A 




(See if zero tcrninator 


MXX1A 


12960 


ID 


A.tAH 


(Exit to error routine 


3*9 C8 


(3770 




RET 


Z 




(Finished if zero byte 


3H( EF 


12970 


RST 


28H 




3*AF5 


(3780 




PUSH 


AF 




(Save sign flag status 


3111 FOB 


12960 NOTCR 


CP 


5BH 


(Has keystroke up-arrow? 


31BBE47F 


(3790 




AND 


7FH 




(Htsk off bit 7 


ym 17 


82990 


LD 


B,A 


(Save keystroke in B 


3*0CODB3» 


(38(0 




CALL 


WSP 




(Display it on video 


JW 2848 


83100 


Jt 


i.trtm 


{Go if up-arrow 


3*0 Fl 


0X10 




POP 


AT 




(Restore sign flag 


31*F41( 


13110 


OR 


1(H 


(Make shifte*wshifted 


3*1 ra 


(3620 




RET 


H 




(Finished if bit 7 set 


34WFE1S 


83120 


CP 


18H 


(Invalid keystroke if 


3*2 23 


(3830 




DC 


HL 




(Advance string pointer 


MM 3BB 


13130 


JR 


CCETNEY 


} lew thm ASCn IBM 


3*3 18FZ 


(3810 




JR 


DSPHSG 




(Go print next byte 


WCFHC 


83111 


CP 


10* 


(Keystroke valid if lew 


3*5 117834 


(3S50PRTNUH 


LD 


DErNNbT 




(Point to nunber buffer 


jME M6r 


13050 


Jt 


NCCETJCf 


i than Attn ID* 


3*8 D5 


03848 




PUSH 


OE 




(Save nunber buffer ptr 


KIM 


83848 


XOR 


B 


(Cheek for shifted chtr 


3*9 3E61 


OB70 




LD 


A,41H 




(Convert nunber in HL to 


3151 321735 


83070 mm 


LO 


(CFLAC),A 


(Save shifted chir flag 


3*8 EF 


(3880 




RST 


28H 




; ascii 


315178 


83080 


LD 


A,B 


(Restore original char 


3*CAF 


(3890 




XDR 


A 




(Zero byte in A register 


3155 219833 


83(91 


LD 


HLrRESTRT 


(RET addr for following 


3*0 12 


(3900 




LD 


(DE),A 




rnirk end of nunber 


3158 E5 


83101 


PUSH 


HL 


(Save it on stack 


3*EE1 


(3910 




POP 


HL 




(Restore buffer pointer 


3W212A31 


83118 


LD 


HJJATSJJM 


(Point to dey-of-week 


31CFCDFE34 


03920 




CALL 


WPSPC 




(Skip leading space chrs 


*H5C IF 


83120 


RRCA 




(Shift bit 1 into carry 


3*2 1BE3 


03930 




JR 


DSPHSG 




(Display converted nunber 


M50 3OI 


83130 


Jt 


NCBNO 


(If key wis tuck/dour err 


31D13E2C 


03910 PRTCQH 


LD 


A,',' 




(Coma character in A 


MF31 


83110 AW 


INC 


(HL) 


i Increment dty of week 


3*4 CDDB31 


(3950 




CALL 


VDSP 




(Display it on video 


3141 7E 


83151 


LD 


A,(HL> 


(Get day of week 


3C9 3E20 


(3940 PRTSPC 


LD 


A,' ' 




(Space character in A 


3*1 FE17 


83140 


CP 


7 


(Is it greater than 4? 


3*6 C5 


03970 VDSP 


PUSH 


BC 




(Save BC 


3*3X02 


13178 


Jt 


CSETDAY 


(Go if valid day 


3*C* 


03980 




LD 


C,A 




(Byte to display in C 


3*5 3400 


83180 


LD 


(«.),( 


(Else reset to Sunday 


3*0 302 


03990 




LD 


A,2H 




(Output byte to video 


3*7 » 


(3190 SEISM 


DEC 


HL 


(Point to north storage 


3*FEF 


01000 




RST 


28H 






3*B7E 


13211 


LD 


A, (Hi) 


tGet north 


3*0 CI 


(1010 




POP 


BC 




(Restore BC 


3*9 0*23*. 


(3211 


CALL 


NAXOAY 


(Get nunber days in Month 


3*1 C9 


(1020 




RET 








3*C26 


(3228 


DEC 


HI 


(Point to day storage 


3*2 (E1E 


(1030 rVHDAY 


LD 


C.300 




(C=( days in tone norths 


3*0 7E 


83230 


LD 


A,(H) 


(Get current day 


3*1 FE01 


M010 




CP 


1 




(Is nonth April? 


3*EB9 


(3210 


CP 


C 


(Conpare with naximm 


3*4 C8 


(1050 




RET 


z 




(Return if April 


3*F 31 


03250 


DC 


(W.) 


(Advance day of north 


3*7FE04 


01040 




CP 


6 




(Is nonth June? 


3170 D8 


83240 


RET 


C 


(Finished if valid day 


3*9 ca 


(1070 




RET 


Z 




(Return if June 


3171 3601 


03270 


LD 


(HL),1 


(Else first of new north 


3*AFE09 


(1080 




CP 


9 




(Is nonth September? 


3173 23 


03280 


INC 


ML 


(Point to north storage 


3*CC8 


01090 




RET 


Z 




(Return if Septenber 


3171 7E 


03290 


LD 


A,(HL) 


(Get current nonth 


HEDFE0B 


01100 




CP 


11D 




(Is nonth November? 


3175 FEOC 


03300 


CP 


12D 


(See if it's December 


31EFC8 


01110 




RET 


Z 




(Return if Novenber 


3177 31 


03310 


DIC 


(HL) 


(Advance nonth count 


3*0 OC 


(1120 




DC 


C 




iC*31 (1 days rast nnths) 


3178 08 


03320 


RET 


C 


(Finished if valid nonth 


MF1FE02 


(1130 




CP 


2 




(Is nonth February? 


317? 3401 


03330 


LD 


(HL),1 


(Else January of new year 


3*3 CO 


01110 




RET 


NZ 




(Return if 31 day nonth 


317B 2B 


03310 


DEC 


HL 


(Bunp pointer back down 


)*1 K1C 


(1150 




LD 


C,28C 




(C=* days in February 


317C ZP 


03350 


DEC 


H. 


! to year storage 


HF4 3AZ730 


01160 




LD 


A, (DATSTR) 




(Get current year 


3170 7E 


13340 


LD 


A.tHJ 


(Get current year ; 


HF9 E603 


01170 




AM) 


3 




(Year divisible by 1? 


317EFE63 


03370 


CP 


990 


(See if last of century jifi CO 


(1180 




RET 


NZ 




(If not leap year 


3180 31 


13380 


DC 


(HL) 


(Advance year count 3f C 0C 


(1190 




DC 


C 




(C=Z9 (t days leap Feb.) 


3181 08 


13390 


RET 


C 


(Finished if valid year 31FD C9 


01200 




RET 






(Finished 


318? 3400 


03100 


LD 


(HL),0 


(Else reset year count ' 


1FEF5 


01210 SKPSPC 


PUSH 


AF 




(Save AF 


3181 114100 


03110 


LD 


DE.100D 


(Add 100 years to century yff 22 


01220 SKPSP2 


DC 


H. 




(Bunp to next character 


3187 2AZB30 


03120 CHGCEN 


LD 


HL,(CNTURY) 


(Get current century 3500 7E 


(1230 




LD 


A f OL> 




(Get character 


31BA If 


13130 


ADO 


HL.DE 


(Adjust century offset 3501 FE20 


(1210 




CP 


2(H 




(Is character a space? 


318B Z22B30 


(3110 


LD 


(OTPJRY),HL 


J and re-save it 3503 28FA 


(1250 




JR 


Z.SKPSP2 




(Skip space characters 


318E C9 


03150 


RET 




(Finished for sure 3505 Fl 


01260 




POP 


AF 




(Restore AF 


y& 35 


03140 BACK 


DEC 


(HL) 


(Decrement day of week 3504 C9 


(1270 




RLT 








3190 F29531 


03170 


JP 


P.SETDA2 


(Go if valid day 3507 gg 


(1280 CRAG 


DEFB 


( 




(Shifted character flag 


3193 3404 


13180 


LD 


<HL>,4 


(Else reset to Saturday 3508 53 


(1290 FO 




DFJn 


'SETDATE/OO' 


(File Control Block area 


3195 2B 


13190 SET0A2 


DEC 


H. 


(Point to nonth storage 


1551111151152F13«11 








3194 7E 


(3500 


LD 


A,(HL) 


(Get nonth 3513 03 


(1300 




DEFB 


3 




( with progren filename 


3197 2B 


(3510 


DEC 


H 


(Point to day storage mm 


01310 




DEFS 


200 




( (total 32 bytes) 


3198 35 


03520 


DEC 


<«_) 


(Decrenent day of nonth (100 


01320 FDJ3UF 


DEFS 


100H 




(File I/O buffer area 


3199 CO 


(3530 


RET 


n 


(Finished if valid day [355 


M330 CHD6FR 


DEFS 


80D 




(Store retaining DOS ends 


319A X 


03510 


DEC 


A 


(Else A=* of previous nth 0008 


(1310 NtHBUF 


DEFS 


8 




(Scratch nunber storage 


319BCDE231 


(3550 


CALL 


NAXOAY 


(Get 1 days previous nrth 3347 


(1350 




END 


START 






319E71 


(3540 


LD 


(HL),C 


}Dey=last day prev. north ,„„ m g^ 












319F23 


(3570 


DC 


HL 


(Point to nonth storage 
















31A0 35 


83580 


DEC 


(H.) 


(Decrenent north count ^ 3^ 


APR 


307; 


) ARROW 3151 


AUG 


3083 BACK 3*F 


3*1 CO 


(3590 


RET 


NZ 


(Finished if valid nonth rj^g 351,7 


CHGCEN 


3183 


as 


3340 


OOBFR 3428 CNTURY 3028 


3*2 340C 


134(0 


LD 


(HJ.LZD 


(Else December prev. year p^-pr 33^ 


DATSTR 


3023 


DEC 


3(A1 


DLY 


3X1 DSPHSG 3*7 


3*1 2B 


83410 


DEC 


M. 


(Bunp pointer back down go^ 335 


ERREXT 


3131 


EXIT 3128 


EXITZ 312E FCB 3508 


31A5 26 


83420 


DEC 


H. 


} to year storage ra 3M4 


FTLHf 


352E 


FNDDAT 3KC 


FPJ 


3(51 GETKEY 3X9 


3*4 35 


(3430 


DEC 


(HL) 


(Decrenent year count j^ 3^ 


JUL 


3071 


JUN 


387B 


m 


30AE HARKER 3026 


3*7 F0 


(341( 


RET 


P 


(Finished if valid year ^^^ ^ 


HAY 


3170 


HON 


3(33 


HSG 


30A9 NOTCR 3111 


3*6 3443 


83450 


LD 


<HL>,990 


(Else last yr prev ertury ^ 3g99 


MJHBUF 


3471 


OCT 


3(92 


PRTCOM 3*1 PRDU1 3*5 


3*A 119CFF 


(3440 


LD 


DE,-1(0D 


(Subtract 1(0 frn century PRTSPC 3*9 


PRTSTR 


3*F 


RESTRT 3398 


SAT 


3(57 SEP 3(89 


3*D 1808 


(3470 


JR 


CHGCEN 


(Adjust century 1 finish SETDA2 3195 


SETDAY 


3*7 


9WSP2 3*F 


SWSPC 31FE START 3347 


3*F 07 


(3480 PRTSTR 


RLCA 




(A-A«2 (2 byte pointers) g»j 3(3) 


TABU 


3(01 


THU 


3M9 


TIE 


3(39 USEPCR 3392 


3*0 6F 


(3490 


LO 


L,A 


SL4.S8 string table addr ^DSP 3*8 


HED 


3110 










3*1 2431 


(3700 
83710 


LD 
LD 


H,TABLE<-e 
A,(KJ 


(H=HSB string table addr 
(A=LSB actual string addr 
















31B3 7E 
















3*123 


83720 
(3730 
(3710 
93750 D5PHSG 


DC 
LD 
LD 
LD 


HL 

H,(HL) 
L,A 
A,(HL) 


(Point to HSB string addr 
(H=rlS6 actual string addr 
(HL=string location addr 
!Get b>rte to di»ln 






>tN 


1 


3*5 64 
3*4 4F 
3*7 7E 


Adding External Drives tc 
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TANDON DRIVE DOOR HINGE REPLACEMENTS 

[Reprinted from Orange Bytes, the magazine of the North 
Orange County (California) Computer Club. Please note the 
disclaimer at the end of this article.] 

A piece of equipment is only as strong as its weakest link. In 
the case of the Tandon drive Cfound in many TRS-80 computer 
systems, as well as in many other brands of computer] the weak 
link may well be the hinge that the disk door pivots on. If you have 
had a failure of this simple component you know the result - since 
the door operates the drive mechanism itself your computer is out 
of business until you make repairs. It happened to us, and when we 
called our Kaypro dealer about it he told us that it would cost about 
*40 to fix, and the same trouble prone part would be used in 
replacement. Since we are in the business of making parts for the 
aviation industry we decided to see if we couldn't come up with 
something better ourselves. Using aircraft grade heat treated 
aluminum alloy we fabricated a new hinge that absolutely cannot 
fail the way the stock plastic part does - in fact it should outlast 
the rest of the computer. The hinges worked out so well that we 
have made more for other Kaypro [and presumably other Tandon 
drive -editor] users, and now offer the parts to whoever would like 
a set. 

If you would like to order a pair of hinges send *10 cash, 
check, or postal money order (cash or money order gets the quickest 
response) to! 

Steve Govus 
Route 2 Box 683 
Shipshewana, Indiana 46565 

Complete installation instructions are included. It takes only 
about half an hour to install a set, requires no special tools, and 
anyone who can run a screwdriver has the necessary mechanical 
background. 

(ORANGE BYTES Editor's Note! This article is offered not as 
an advertisement but as a public service for the systems that it 
makes reference to. 

Products, services, etc., mentioned or offered within the 
pages of the Orange bytes have not been screened or verified by the 
North Orange County Computer Club, its staff or officers. Persons 
wishing to purchase or use any item, service, or product mentioned 
or published within the pages of the Bytes do so at their own risk. 

Also, any person who would send cash for the purchase of a 
mailorder item (in or out of state) might be interested in some great 
ocean-front property that I have for sale in Kansas.] 

[NORTHERN BYTES Editor's Note! We echo the above 
disclaimer, since we have had no dealings whatsoever with this 
firm and therefore cannot vouch for them in any way. But if you 
hate water, I have some great desert property in Michigan's Upper 
Peninsula that you might prefer to the Kansas ocean-front land...] 

ANOTHER TRSDOS 1.3 PATCH 
by Andy Levinson 

[The following is excerpted from an article in The Interface 
newsletter of the San Gabriel Valley TRS-80 Users Group!] 

One of the problems still in TRSDOS 1.3 is a wonderful little 
bug that can destroy the operating system environment. The bug is 
particularly ironic because it results from someone's efforts to 
keep the directory GAT sector looking clean even though TRSDOS 
1.3 (by itself) does not permit a user to view that sector. 

The bug is in the AUTO command. If you have ever looked at 
the GAT sector on a TRSDOS 1.3 disk, you may have noticed that the 
GAT can only hold a 32-character AUTO command (actually only 31 
since the command must end with a carriage return). My official 
TRSDOS 1.3 manual makes no mention of the limitation. No big deal 
because who enters AUTO commands that long? 

But what if you did? The wonderful charm of computers and 
programming is that you can always depend on someone at some time 
to do something out of the ordinary. Test it yourself with this 
command*. 

AUTO GREAT HAY TO CRASH A TRSDOS DISK 

Surprise! For a tidy GAT sector, AUTO pads the command 
buffer with up to 32 spaces. What if there are more than 32 
characters in the AUTO command argument? Simple math states 
that 32 minus 32 equals and any machine language student knows 
that invariably means 256 on an 8-bit computer. That means pad 
out the 64 character keyboard buffer with 256 spaces. Oops! There 
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went a page of operating syit&n code (per fulfil tlus idea came from 
the same programmer who dedded to keep directory sectors tidy by 
clearing the entire file entry, thereby precluding recovery, 
whenever a file is killed.) 

Anyway, here is a simple TRSDOS 1.3 patch that ends the 
problem I just described! 

PATCH *6 IADD=531A,FIND=3620,CHG=0000) 

I didn't spend the time for a complete solution. This patch 
merely eliminates padding. Disk xappers can now see trailing junk 
in the GAT sector after a "short" AUTO command. But an unduly 
long AUTO command will only display garbage on the screen. It will 
not crash the system. 

MODEL I/m SELECTIVE RESTORE 

Ever wished you could RESTORE to something other than the 
first DATA statement? Let's suppose, for example, that you want 
to be able to RESTORE to the 51st DATA item of a list. Try this! 
At the beginning of your program, insert this line! 

FOR X=l TO 50! READ X*S NEXT! X-PEEKU6639K Y-P£EK<16640>! 

RESTORE 

Now, whenever you wish to RESTORE to the 51st DATA item, simply 
execute the statements POKE 16639.XS POKE 16640.Y . Of course, 
X and Y can be any valid variable names, but remember not to use 
them elsewhere in your program. 

What we're doing, of course, is setting the DATA pointer to 
read the 51st DATA item, then "remembering" the position of the 
pointer by saving it in the two variables (X and Y in this case). 
Later, we can simply POKE the pointer position back into place, to 
reset the pointer to the 51st DATA item (without the necessity of 
doing dummy READs to get to where we want to be). By using this 
technique, you can actually subdivide a DATA list into several 
segments, and get back to the start of any one of them by doing the 
proper POKEs. 

AN ELECTRONICS INVASION FROM •DOWNUNDA' 

Perhaps you've seen mentions of Dick Smith Electronics here 
in NORTHERN BYTES, usually in articles that originated in 
Australia, If not, you've surely seem mentions of the SYSTEM-80 
computer, which was the TRS-80 clone that Dick Smith sold in 
Australia for a few years (the same computer was sold here as the 
PMC -80). 

Well, watch out, America, Dick Smith Electronics has opened 
its first U.S. stores in California, with more on the way. And their 
catalog is something to behold, it's reminiscent of the catalogs that 
companies like Olsen Electronics and Lafayette Radio used to send 
out. It's a very readable catalog, with lots of information and even 
bits of humor sprinkled throughout (there's also a picture of Dick's 
smiling face on nearly every page, but what the heck...). There's a 
23 page section of technical information, that contains everything 
from resistor and capacitor color codes and a fairly comprehensive 
section of semiconductor and IC data, to antenna data, a decibel 
chart, a section on suppressing automotive electrical noise, and 
several other handy reference charts. And, in case you run into an 
Australian term you don't understand, there's a section entitled 
"Learn to Speak Strine" to help you translate. 

The catalog bears a cover price of S2.00 (and is worth every 
penny of it just for the technical section), but I got mine for free 
just by calling their toll free number, (800) 332-5373, and requesting 
a copy. AND you get two one dollar coupons, each redeemable 
against any purchase of five dollars or more, 

Unfortunately, there's not much in the way of computer 
equipment here, and some of the prices seem just a shade on the 
nigh side (actually, they're probably comparable to Radio Shack's 
prices on many items). But the catalog is fun to read, and they have 
a lot of electronic goodies I haven't seen elsewhere. If you (or your 
kids) have any interest in electronics at all, be sure to get a copy of 
this catalog. If you don't want to call, the address is! Dick Smith 
Electronics, P.O. Box 8021, Redwood City, California 94063. 
Besides the toll free number mentioned above, they have a regular 
phone! (415) 368-1066, a TELEX number! 160488 DICKS USA, and a 
facsimile machine! (415) 368-0140. 

By the way, Dick Smith Electronics is expanding in the U.S., 
and they want to employ electronics enthusiasts. Positions are 
available now in California, and will be" opening up in other areas in 
the future. Write to their Personnel Manager at P.O. Box 2249, 
Redwood City, California 94043. 



Diskette Shopping Made Si 




Use the handy order form to order diskettes In the quantities desired. Use of the 
product codes to the left of the product helps Insure that your order Is processed 
pVoperly. All diskettes are soft-sectored. "F««PP'«V^ PJfJ^J* lf i l 1 S?. b ?tf , **5 
«l+h a slnale headed disk drive. All DSDD (double sided, double (tensity) media wl I work 
on both slngte and doubte headed disk drives. All media Is fully guaranteed for five 
years from the date of purchase. 



MAMfl; 

ADDRESS :. 



TOTAL AMOUNT PURCHASED: ?, 
VISA , MASTERCAR D 
CARD NUMBER : 



CHECK 



OTHER 



EXPIRATION DATE: 
SPECIAL INSTRUCTIONS: 



We also accept pro forma invoices and properly signed purchase 
Orders from most schools and governmental agencies. 



Package of 10 diskettes with Boxes, Labels, 
Sleeves and Write Protect Tabs: 



Package of 25 BULK diskettes W/Labels, Sleeves 
and Write Protect Tabs (you save us the labor of 
putting them together; YOU do It as you need the 

d I skettes ) : 



I tern 
Code 



price Style 



QTY. 



SSDDX 



$9 ,95 - SSO0 



OSDDX - f 11.95 - DSDD 



K3SFLX - $12.95 - Pre-punclted PSDD Ftlppies 



MDSMUX - 112.95 - Mu It I -Colored DSDD 



Item 
Code 



Price Style 



QTY. 



MS S025 - $19.95 - SSD D 



MDSD25 - $22.95 - DSDD 



MDSF 25 - $24. 95 - Pre-punched DSDD Flit 



NDSM25 - $24.95 - Mu It I -Colored DSDD 



Package of 100 diskettes with Labels, Sleeves and 
Write Protect Tabs: 



Package of 100 BULK diskettes with Labels, 
Sleeves and Write Protect Tabs: 



Price 
Item First Extra 
Code 100 IQO'S 




DC - $79.95 



Style 



FIRST 



EXTRA 



SSDD 



- $74.95 - SSDD 



M9.95 - 



DSDD 



- $84.95 - DSDD 



MDSFLC - $95.95 



MDSFLD 



- "FLIPPY" 

$89.95 - "FLIPPY* 1 



M3SMUC - $95.95 - - COLOR 

NDSMUD - - $89.95 - COLOR 



Item 
Code 


Price 
First Extra 
100 100's 


Style 


MSSDBC - 


$75.95 -' 


- SSDD 


MSSDBD - 


- $69.95 


- SSDD 


MDSDBC - 


$85.95 - 


- DSDD 


MDSDBD - 


- $79.95 


- DSDD 


MDSDFC - 


$90.95 - 


- FLIPPY 


MDSDFD - 


- $84.95 


- FLIPPY 


MDSDMC - 


$90.95 - 


- COLOR 


MDSDMD - 


- $84.95 


- COLOR 



FIRST 



EXTRA 




These prices are CASH prices and reflect a 4% 
cash discount. You pay the first $3 In shipping; 
we pay the rest. 





The Alternate Source 



704 North Pennsylvania Avenue 
Lansing. Michisan 48906 
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NORTHERN BYTES 




Subscription Information 

Northern Bytes is edited by Jack Decker and published on 
an irresular basis by The Alternate Source Information 
Outlet. Back issues are available startine with Volume 5. 
Number 1 . Issues prior to that are not available. Some of 
the most valuable articles from earlier issues may be 
reprinted in future issues of Northern Bytes. Currently 
there are eieht back issues available for Volume 5. as well 
as all issues from Volume 6. All back issues are $2 each. 

It is very easy to be Placed on the Northern Bytes 
REGULAR list. Simply place your address. Visa or 
MasterCard number and expiration date on file with us. 
We will start with the issue you request. We do not bill you 
for AN V ISSUE until that issue has been mailed. This way. 
we can continue to offer you top quality information with 
absolutely no risk to you. There's no question of what to 



do about unfulfilled issues if we decide to quit publishing. 
Unless otherwise requested, we presume your 
subscription will extend through the month of your 
expiration date. 

Don't have a chartfe card, huh? We understand the myriad 
of reasons for not bavins them and we feel that a "To-Be- 
Invoiced" policy could help increase the demand for 
Northern Bytes. If you'll do it for us. we'll do it for you. 
Would you like to be placed on a regular list TO BE 
BILLED for each issue? Vou could then send a check for 
the issues as they are mailed. If you didn't send a check, 
we would presume that your interest has died and 
discontinue your subscription. The only requirement for 
getting onto the list is to pay for the first issue up front: 
the next will be mailed automatically, if you request, you 
are insured that you will receive top of the line TRS-80 
information as it is released. Ask to be Placed on the NO 
RISK "To-Be-lnvolced Northern Bytes List". 



Call or write, but SIGN UP TODAY! 8 

The Alternate Source Information Outlet | 

704 North Pennsylvania Avenue § 

Lansing, MI 48906 I 

(517)482-8270 | 

>OOOOOOOOOOOOOOQOOOOOOOOOOOOOOOOOOOg 



NORTHERN BYTES 

c/o Jack Decker 

1804 West 18th Street 

Lot #155 

Saolt Ste. Marie. Michigan 49783 

Ma Matt Address: 102-7413 

Telex: 6501027413 

(Answerback: 6501027413 MCI) 

POSTMASTER: If undeliverable return to: 

TIM Mfernate Source. 704 North Ptmartvania Avenue. LMriM. MicMnn 41906 



Bulk Mall 

U.S. Postage PaM 

Permit «815 
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